program lnko_s;
var a,b,i,lnko,lkkt,c:integer;
begin
     WriteLn('Kerem a ket szamot!');
     ReadLn(a);
     ReadLn(b);
     if a<b then
            begin
            c:=a;
            a:=b;
            b:=c
            end;
     For i:=2 to a do
      if(a mod i=0) and (b mod i=0) then lnko:=i;
     lkkt:=round(a*b/lnko);
     WriteLn('Az lnko: ', lnko, ' Az lkkt: ', lkkt);
     ReadLn
End.