var a,x,n,i:longint; f,g:text;
 begin
 assign(f,'inversmodular.in'); reset(f);
 read(f,a,n); close(f);
 for i:=1 to (n-1) do
 begin;
 x:=i;
 if (((a*x)-1) mod n)=0 then
 begin
 assign(g,'inversmodular.out'); rewrite(g);
 write(g,x); close(g);
 end;
 end;
 end.