program divi;
var q,a,b,r : longint;
begin 
write('Entrez a: ');
readln(a);
write('Entrez b: ');
read(b);
q:=0;
r:=0;
while a>=b do
begin
r:= a-b;
a:= r;
q:= q+1;
end;
writeln('Le quotien de a/b est: ',q);
writeln('Le reste de a/b est: ',r);
end.