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.

辗转相除法：
m=n*q+r;
gcd(m,n)=gcd(n,r);
递归就可以了。