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.