var

m,n: integer;

mark: Boolean;

function test(m,N:integer):integer;

var i,p: integer; flag: boolean;

begin

m := m - 1; i := 0; flag := False;

for p:= 2*N downto (N+1) do

begin

i:= (i+m) mod p;

if (i