Дано натуральное (целое неотрицательное) число 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.

А)1 1/2,1 1/4, 1 1/3, 2 1/3, 8 5/6б)1 3/5, 3 1/2, 3 1/3, 3 3/4, 4 4/9 1 цифра- целая, потом дробь