exgcd扩展欧几里得--noip同余方程



var
  a,b,d,x,y:int64;

procedure gcd(a,b:int64);
var
  t:int64;
begin
  if a mod b=0 then begin
    x:=0;y:=1;
  end
  else begin
    gcd(b,a mod b);
t:=x;
x:=y;
y:=t-(a div b)*y;
  end;
end;

begin
  readln(a,b);
  d:=b;
  gcd(a,b);
  writeln(((x mod d)+d)mod d);
end.