var
  xin,yin,u1out,u2out,gcdout;

procedure gcd;
var x,y,newx,newy;
begin
  x:=xin;
  y:=yin;
  while x#y do
  begin
    if x>y then
    begin
      newx:=x-y;
      newy:=y
    end;
    if x<y then
    begin
      newx:=x;
      newy:=y-x
    end;
    x:=newx;
    y:=newy
  end;
  gcdout:=x
end;

procedure exteuclid;
var
  t1,t2,t3;
  uarray1,uarray2,uarray3;
  varray1,varray2,varray3;
  q;
begin
  uarray1:=1;
  uarray2:=0;
  uarray3:=xin;

  varray1:=0;
  varray2:=1;
  varray3:=yin;

  while varray3#0 do
  begin
    q:=uarray3 / varray3;

    t1:=uarray1-varray1*q;
    t2:=uarray2-varray2*q;
    t3:=uarray3-varray3*q;

    uarray1:=varray1;
    uarray2:=varray2;
    uarray3:=varray3;

    varray1:=t1;
    varray2:=t2;
    varray3:=t3
  end;
  u1out:=uarray1;
  u2out:=uarray2;
  gcdout:=uarray3
end;

procedure main;
begin
  xin:=in;
  yin:=in;
  call gcd;
  out:=gcdout;
  call exteuclid;
  out:=u1out;
  out:=u2out;
  out:=gcdout;
end;

begin
  call main
end.