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

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

program a;var i,d,m,sum: integer; beginsum:=0;writeln ('Сколько в классе девочек и мальчиков? ');read (d,m);d:=d+m;writeln ('За контрольную работу по математике было получено: (Р пятерок, Н четверок, Т троек, К двоек) ');for i:=1 to 4 do      begin             read (m);             sum:=sum+m;       end;writeln('Отсутствующие - ',d-sum);end.