编程求两个自然数,m.n的最小公倍数

方法：先用辗转相除法求出m,n的最大公约数k,则m,n的最小公倍数为m*n/k
PASCAL代码：
var m,n:longint;
function a(x.y:longint):longint;
var i:longint;
begin
while (x>0)and(y>0) do
begin
i:=x mod y;
if i=0 then exit(x);
x:=y; y:=i;
end;
end;
begin
readln(m,n);
writeln(m*n/a(m,n);
end.