计算两个数的最大公约数 function gcd(m, n: Integer): Integer;begin if n <> 0 then begin Result := gcd(n,m mod n); end else begin Result := m; end;end;