var
A, D, Q, R: integer;
begin
read(A, D);
Q := 0; R := 0;
while (A >= D) do
A := A - D;
Q := Q + 1;
end;
R := A;
write('Частное = ', Q, ' Остаток = ', R);
end.
var
A, D, Q, R: integer;
begin
read(A, D);
Q := 0; R := 0;
while (A >= D) do
begin
A := A - D;
Q := Q + 1;
end;
R := A;
write('Частное = ', Q, ' Остаток = ', R);
end.