同餘式組編程

『壹』 pascal編程：同餘方程

var a,b,x,y,k:longint;
function exgcd(a,b:longint; var x,y:longint):longint;
var t:longint;
begin
if b=0 then
begin x:=1;y:=0;exit(a);end;
exgcd:=exgcd(b,a mod b,x,y);
t:=x;
x:=y;
y:=t-(a div b)*y;
end;
begin
readln(a,b);
k:=exgcd(a,b,x,y);
writeln((x+b)mod b);
end.
求採納謝謝