Free Pascal编程，高手帮我

{NO.1}
var x,y,l,m:longint;
function lcm(a,b:longint):longint;
var t:longint;
begin
if a<b then begin
t:=a;a:=b;b:=t;
end;
lcm:=a;
while lcm mod b>0 do inc(lcm,a);
end;
function gcd(a,b:longint):longint;
begin
gcd:=a*b div lcm(a,b);
end;
begin
readln(x,y);
l:=lcm(x,y);
m:=gcd(x,y);
writeln(l);
writeln(m);
end.
---------分割线-------------
{no.2}
var x,y,l,m,ll,mm,a,b,c:longint;
function lcm(a,b:longint):longint;
var t:longint;
begin
if a<b then begin
t:=a;a:=b;b:=t;
end;
lcm:=a;
while lcm mod b>0 do inc(lcm,a);
end;
function gcd(a,b:longint):longint;
begin
if b=0 then gcd:=a
else gcd:=gcd (b,a mod b);
end ;
begin
readln(a,b,c);
l:=lcm(a,b);
ll:=lcm(l,c);
m:=gcd(a,b);
mm:=gcd(m,c);
writeln(ll);
writeln(m