gcd 模板

　　给 x，y 两个数，求 x，y 的最大公因数。

　　辗转相除法，直接套！！！ 

1 function gcd(x,y:longint):longint;
2 begin
3         if y=0 then exit(x) else exit(gcd(y,x mod y));
4 end;