Ý tưởng:

`#` tạo 1 hàm tìm ucln

`#` Tìm ucln của 2 phần tử 1 trong n số

CODE
uses crt;
var n,i,ans: integer;
    a: array[1..100] of integer;
function gcd(a,b: integer): integer;
var t: integer;
begin
    while b<>0 do begin
        t:=b;
        b:=a mod b;
        a:=t;
    end;
    exit(a);
end;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
    ans:=gcd(a[1],a[2]);
    for i:=3 to n do ans:=gcd(ans,a[i]);
    write(ans);

end.

Chương trình (có nhập từ bàn phím 2 số nguyên a và b):

program UCLN;

var

   a,b, temp: integer;

begin

    write('Nhap so nguyen a: ');

    readln(a);

    write('Nhap so nguyen b: ');

    readln(b);

    while b <> 0 do

    begin

         temp := b;

        b := a mod b;

        a := temp;

     end;

     writeln('UCLN cua hai so la: ', a);

end.

#cd72