uses crt;
var a, b, c, uc, bc, i, m: longint;
begin
 clrscr;
  write ('nhap a: ');  readln (a);
  write ('nhap b: ');  readln (b);
  write ('nhap c: ');  readln (c);
  m:=a;
  if m>b then m:=b;
  if m>c then m:=c;
  uc:=1;
  for i:=1 to m do
  if (a mod i= 0) and (b mod i= 0) and (c mod i= 0) then
   begin
    if uc<i then uc:=i;
   end;
   bc:=a*b*c;
   for i:=a*b*c downto 1 do
   if (i mod a= 0) and (i mod b= 0) and (i mod c= 0) then
   begin
    if bc>i then bc:=i;
   end;
   writeln ('Uoc Chung Lon Nhat: ',uc);
   writeln ('Boi Chung Nho Nhat: ',bc);
 readln;
end.

program bai_giai;
uses crt;
var a,b,c,uc,bc:integer;
function UCLN(x,y:integer):integer;
begin
    while x<>y do
        if x>y then x:=x-y else y:=y-x;
    UCLN:=x;
end;
function BCNN(m,n:integer):longint;
begin
    BCNN:=(m*n) div UCLN(m,n);
end;
BEGIN
    clrscr;
    readln(a,b,c);
    uc:=UCLN(a,b); uc:=UCLN(uc,c);
    bc:=BCNN(a,b); bc:=BCNN(bc,c);
    writeln(uc);
    writeln(bc);
    readln;
end.