Решить в паскале. заранее ) в классе д девочек и м мальчиков. за контрольную работу по было получено р пятерок, н четверок, т троек, к двоек. все ли ученики были на контрольной работе?

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

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; 
begin
sum:=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.