pascal编程：最大公约数和最小公倍数问题输入二个正整数x0,y0(2

pascal编程：最大公约数和最小公倍数问题输入二个正整数x0,y0(2
pascal编程：最大公约数和最小公倍数问题
输入二个正整数x0,y0(2

pascal编程：最大公约数和最小公倍数问题输入二个正整数x0,y0(2
楼上超时
我的程序：
var
i,j,sum:longint;
m,n,k,x,y:int64;
function gcd(x,y:longint):longint;
begin
if x mod y=0 then exit(y) else gcd:=gcd(y,x mod y);
end;
begin
read(x,y);
k:=x*y;
for i:=x to y do
begin
m:=i;
if k mod m=0 then begin
n:=k div m;
if (gcd(m,n)=x) and (n*m div gcd(m,n)=y) then inc(sum);
end;
end;
writeln(sum);
end.