var

a,b,aa,bb:integer;

begin

write('nhapa');

readln(a);

write('nhpab');

readln(b);

aa:=a;

bb:=b;

while aa<>bb do

begin

if aa>bb then aa:=aa-bb

else bb:=bb-aa

end;

write('uocsochunglonnhat=',aa);

write('boisochungnhonhat=',a*b div aa);

readln;

end.