求余数……

Program P3980;
var
   a,b:longint;
begin
   while not seekeof do
   begin
      read(a,b);
      writeln(a mod b);
   end;
end.