uses crt;
var a: array [1..300] of longint;
n, temp: integer;temp2, min: longint;
function UCLN(x, y: longint): longint;
begin
if x mod y = 0 then UCLN := y else UCLN := UCLN(y, x mod y);
end;
begin
clrscr;
Write('Nhap so cac so can tim UCLN: '); Readln(n);
Write('Nhap cac so: ');
repeat
inc(temp);
readln(a[temp])
until temp = n;
min :=2000 * 2000 *2-1;
repeat
repeat
dec(temp);
temp2 := ucln(a[temp], a[n]);
if temp2 < min then min := temp2
until temp = 1;
dec(n);
temp := n
until n = 1;
Writeln('UCLN cua cac so tren la ', min);
Readln
end.

program bai_giai;
uses crt;
var A:array[1..10000] of integer;
    n,i,kq:integer;
{---ct-con---}
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;
{---ct-chinh---}
BEGIN
    clrscr;
    write('Nhap so luong: ');  readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,': ');  readln(A[i]);
        end;
    kq:=UCLN(A[1],A[2]);
    for i:=3 to n do
        kq:=UCLN(kq,A[i]);
    write(kq);
    readln;
end.