uses crt;
var kq,a,i,n:longint;
function ucln(a,b:longint):longint;
begin
   if b=0 then exit(a) else exit(ucln(b,a mod b));
end;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap so thu ',i,': ');readln(a);
         if i=1 then kq:=a;
         kq:=ucln(a,kq);
      end;
   writeln(kq);
readln
end.

uses crt;

var a : array[1..20000] of longint;

i, n, j, min, dem : integer;

begin

clrscr;

write('Nhap so n : '); readln(n);

for i := 1 to n do

begin

write('Nhap so thu ', i ,' : '); readln(a[i]);

end;

min := a[1];

for i := 2 to n do if min > a[i] then min := a[i];

write('UCLN : ');

dem := 0;

for j := min downto 1 do

for i := 1 to n do

begin

if a[i] mod i = 0 then dem := dem + 1 else dem := 0;

if dem = n then begin write(j : 3); break end;

end;

readln

end.