Viết chương trình nhập n số nguyên tìm ucln của n số nguyên vừa nhập

uses crt;

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

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

begin clrscr;

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

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

min := a[1];

for i := 2 to n do

begin write('Nhap so thu ', i ,' : ');

readln(a[i]);

if min > a[i] then min := a[i]; end;

count := 0;

for j := 1 to min do

for i := 1 to n do

begin if a[i] mod j = 0 then count := count + 1

else count := 0;

if count = n then break; end;

write('UCLN : ', j);

readln

end.

uses crt;
const Lim = trunc(1e6);
var a, g: int64;
var i, n: longint;

function __gcd(a, b: int64): int64;
var r: int64;
begin
    a:=abs(a); b:=abs(b);
    while b <> 0 do begin
        r:=a mod b;
        a:=b; b:=r;
    end;
    exit(a);
end;

begin
    readln(n);
    for i:=1 to n do begin
        read(a); g:=__gcd(a, g);
    end;
    writeln(g);
readln;
end.