UCBC Pascal

var     m,n:int64;

function gcd(a,b:int64):int64;
var t:int64;
begin
    while b>0 do
       begin
           t:=a mod b;
           a:=b;
           b:=t;
       end;
    exit(a);
end;

fucntion bcnn(a,b:int64):int64;
var
begin
    exit(a*b/ucln(a,b));
end;

begin
    assign(input,'ucbc.inp');reset(input);
    assign(output,'ucbc.out');rewrite(output);
    read(m, n);
    u:=gcd(m,n);
    writeln(u);
    v:=bcnn(m,n);
    write(v);
end.