Program While4;
Var a,b,c:integer;
 begin
 ReadLn(a,b);
 Write (a mod b);
 {
 while a mod b =0 do 
 begin 
 c:=a mod b;
 end;
 WriteLn(c);
 }
 end.