program while3;
 
uses crt;
 
var 
  n, k, chast, ost:integer;
begin
  clrscr;
repeat
  writeln('Введите число n');
  readln(n);
  writeln('Введите число k');
  readln(k);
until(n>0) and (k>0);
  chast:=0;
  while n>=k do
    begin
      chast:=chast+1;
      n:=n-k;
    end;
  ost:=n;
  writeln('Частное ',chast);
  writeln('Остаток ',ost);
  readln;
end.