program mn;
uses crt;
var a,b,c:integer;
BEGIN
ClrScr;
Write('A:');
readln(a);
Write('B:');
readln(b);
c:=a mod b;
inc(c);
writeln(c);
While not keypressed do
END.