用辗转相除法求两个整数
m和
n的最大公约数。如输入
26 39，输出
13。所谓辗转相除法只指，第
1步计算
m mod n，如结果为
0，则
n就是最大公约数，否则执行第
2步，将
m=n，
n=m mod n；反复执行
1、
2两步，直到
m mod n=0。
<?xml:namespace prefix="o" ns="urn:schemas-microsoft-com:office:office"></?xml:namespace>

请把确切的过程发过来
谢谢！

求a b的最大公约数
z:=a mod b;
while z<>0 do
begin
a:=b;
b:=z;
z:=a mod b;
end;
gcd:=b;

var a,b,r:longint;
begin
read(a,b);
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
writeln(b);
end.

Function gcd(a,b:longint):longint;
var r:longint;
begin
r:=a mod b;
if r=0 then exit(b)
else exit(gcd(b,r));
end;
调用的时候保证a>b