Program Problem1; 
Var
  r,d,a,q:Word;
Begin
  Write('Задайте значения a и d: ');
  ReadLn(a,d);
  r:=a;{Эти значения будут выведены,}
  q:=0;{если a меньше d}
  While r>=d Do {Пока d "помещается" в r}
  Begin
     r:=r-d;{Уменьшаем r на d}
     q:=q+1;{Учитываем это уменьшение}
  End;
  WriteLn('Частное = ',q);
  WriteLn('Остаток = ',r);
End.