uses crt;
var i,n,c,b,uc:integer;
bcnn:int64;
a:array[1..100] of integer;
{--------------------------chuong-trinh-con-tim-ucln-cua-hai-so---------------}
function ucln(c,b:integer):integer;
var r:integer;
begin
r:=c mod b;
while r<>0 do
begin
c:=b;
b:=r;
r:=c mod b;
end;
ucln:=b;
end;
{---------------------------chuong-trinh-chinh-----------------------------------}
begin
clrscr;
Write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly--------------------------}
writeln;
uc:=ucln(a[1],a[2]);
bcnn:=(a[1]*a[2])div uc;
for i:=3 to n do
begin
uc:=ucln(uc,a[i]);
bcnn:= bcnn*a[i] div uc;
end;
Writeln('uoc chung lon nhat cua day so la: ',uc);
Writeln('boi chung nho nhat cua day so la: ',bcnn);
readln
end.
