Пожалуйста, помогите с информатикой! Очень срочно! Задача решается в Pascal.​

var

 A, D, Q, R: integer;

begin

 read(A, D);  

 Q := 0; R := 0;

 while (A >= D) do  

 begin

   A := A - D;    

   Q := Q + 1;

 end;

 R := A;

 write('Частное = ', Q, ' Остаток = ', R);

end.