Дано натуральное (целое неотрицательное) число A и целое положительное число D. Вычислить частное Q и остаток R при делении

USES Crt;
VAR
   A, D, R, Q : INTEGER;
BEGIN
   ClrScr;
   Write(‘ Введите два значения ‘);   ReadLn(a,d);
    R := A; Q := 0;
   While Not (R < D) DO Begin
      R := R - D; {R >= 0}
      Q := Q + 1;
   End;
   WriteLn(‘ Частное = ’,Q);
   WriteLn(‘ Остаток = ’,R);
END.