uses crt;

var x,y,uc,bc:integer;
begin

clrscr

write('x,y');
readln(x,y);
bc:=x*y;
While x<>y do If x>y then x:=x-y else y:=y-x;
uc:=x;
bc:=bc div uc;

writeln('ucln',uc);

writeln('bcnn',bc)';

readln

end.

uses crt;
var a, b: longint;

function gcd(a, b: longint): longint;
var r: longint;
begin
    while b <> 0 do
        begin
            r:=b;
            b:=a mod b;
            a:=r;
        end;
    exit(a);
end;

function lcm(a, b: longint): longint;
begin
    exit(a * b div gcd(a, b));
end;

begin
clrscr;
    read(a, b);
    writeln(gcd(a, b));
    writeln(lcm(a, b));
readln; readln;
end.