辗转相除法！

此处仅给出求最大公约数的代码：
program gmn
   var
     m,n,g:integer;
function gcd(m,n:integer):integer;
   begin
     if n=0 then gcd:=m
            else gcd:=gcd(n,m MOD n)
   end;

   begin
      read(m,n);
      g:=gcd(m,n);
      writeln('m=',m,'n=',n,'gcd=',g)
   end.

求最小公倍数同理，请楼主自行完成．

program yb(input,output);
var a,b,c,x:longint;
y:real;
begin
read(a,b);
c:=0;
while (c<=a) and (c<=b) do
begin
c:=c+1;
if (a mod c=0) and (b mod c=0) then
x:=c;
end;
y:=(a*b)/x;
writeln('x=',x,'y=',y:100:0);
end.
x是最小公约数　y是最大公倍数
应该看得懂吧　我也是个菜鸟
用不着楼上那么麻烦吧！