program oken;
uses crt;
var a: array [1..100] of integer;
i,n,uc,bc: integer;
function ucln(a,b: integer):integer;
begin
while (a<>b) do
if a>b then
a:=a-b
else
b:=b-a;
ucln:=a;
end;
function bcnn(a,b: integer): integer;
begin
bcnn:= a*b div ucln(a,b);
end;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']: '); readln(a[i]);
end;
uc:=a[1]; bc:=1;
for i:=1 to n do
begin
uc:=ucln(uc,a[i]);
bc:=bcnn(bc,a[i]);
end;
writeln('UCLN cua mang vua nhap: ',uc);
writeln('BCNN cua mang vua nhap: ',bc);
readln;
end.
