PASCAL 让计算机产生两个随机数 然后计算他们的最大公倍数与最小公约数

最小公倍数：
program zuixiaogongbeishu;
var a,b:integer;
procedure zzz(t:integer);『子程序』
begin
t:=t+1;
if a*t mod b=0 then write(t*a)
else zzz(t);
end;
begin『主程序』
read(a,b);
zzz(1);
end.
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
最大公约数：
program zuidagongyueshu;
var m,n,a,b,r:integer;
begin『主程序』
write('Input m,n=');
readln(m,n);
a:=m;
b:=n;
repeat
r:=a mod b;
a:=b;
b:=r;
until r=0;
writeln('The greatest common divide is:',a);
end.