Ответ:

var

 x,y,r,q: integer;

begin

 read(x,y);

 r:=x;

 q:=0;

 if r >= y then

   begin

     r:=r-y;

     q:=q+1;

   end;

 writeln(r, #13, q);

end.

Объяснение: