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.