Задачу решить в Паскале. Заранее спасибо)
В классе Д девочек и М мальчиков. За контрольную работу по математике было получено Р пятерок, Н четверок, Т троек, К двоек. Все ли ученики были на контрольной работе?

// В классе Д девочек и М мальчиков. За контрольную работу по математике было
//получено Р пятерок, Н четверок, Т троек, К двоек. Все ли ученики были на контрольной работе?


Var d,m,p,h,t,k: word;


begin

  writeln('Введите количество девочек');

  ReadLn (d);

  writeln('Введите количество мальчиков');

  ReadLn (m);

  writeln('Введите количество полученных пятерок');

  ReadLn (p);

    writeln('Введите количество полученных четверок');

  ReadLn (h);

  writeln('Введите количество полученных троек');

  ReadLn (t);

  writeln('Введите количество полученных двоек');

  ReadLn (k);

  d:=d+m;

  p:=p+h+t+k;

  If d=p then writeln ('Все ученики присутствовали на контрольной');

  If d>p then writeln ('Не все ученики присутствовали на контрольной');

  If d<p then writeln ('Вы ошиблись при вводе количества учеников или
количества оценок');

end.