program formula; var i,j,k,n,m,a,b,ans,x,y:int64; function gcd(a,b:int64;var x,y:int64):int64; var ans,t:int64; begin if(b=0)then begin x:=1;y:=0;exit(a);end else begin ans:=gcd(b,a mod b,x,y); t:=x; x:=y; y:=t-(a div b)*y; exit(ans); end; end;{gcd} begin{main} readln(a,b); ans:=gcd(a,b,x,y); if(ans<>1)then writeln('No answer') else begin x:=x mod b; while x<0 do inc(x,abs(b)); writeln(x); end; end. /************************************************************** Problem: 2317 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/