使用方法：

//取号1和号2的最大公约数
zxgbs(r1,r2)

过滤函数

//求最小公倍数
//算法: x * y div 它们的最大公约数

function zxgbs(x, y: Cardinal): Cardinal;
var
  m, n: Cardinal;
begin
  m := x * y;
  n := y;
  if x < y then
  begin
    y := x;
    x := n;
  end;

  while n > 0 do
  begin
    n := x mod y;
    x := y;
    if n > 0 then
      y := n;
  end;

  Result := m div y;
end;