var n,i,j,g,l,gcd:integer;
    a:array[1..100]of integer;
begin
  write('Nhap so N: ');readln(n);
  write('A= ');
  for i:=1 to n do read(a[i]);
  g:=a[1];
  for i:=2 to n do
  begin
    gcd:=g;
    j:=a[i];
    while j<>0 do
    begin
      gcd:=gcd mod j;
      gcd:=gcd+j;
      j:=gcd-j;
      gcd:=gcd-j;
    end;
    g:=gcd;
  end;
  l:=a[1];
  for i:=2 to n do
  begin
    gcd:=l;
    j:=a[i];
    while j<>0 do
    begin
      gcd:=gcd mod j;
      gcd:=gcd+j;
      j:=gcd-j;
      gcd:=gcd-j;
    end;
    l:=(l*a[i]) div gcd;
  end;
  writeln('UCLN cua day la: ',g);
  writeln('BCNN cua day la: ',l);
end.