tìm UCLN của 3 số UCLN.INP UCLN.OUT 3 25 25 75 50 giúp với ạ

/// Nhập đến đâu tính gcd đến đó :)

uses crt;
var res, i, n, a: longint;

function gcd(a, b:longint):longint;
begin
    while a * b <> 0 do
        begin
            a:=a mod b;
            if a <> 0 then
                b:=b mod a;
        end;
    exit(a + b);
end;

begin
    clrscr;
    readln(n);
    for i:=1 to n do
        begin
            readln(a);
            res:=gcd(res, a);
        end;
    writeln(res);
readln;
end.

var a:array[0..10000007] of longint;
    n,u,i:longint;
function ucln(x,y:longint):longint;
var tmp : longint;
begin
while y > 0 do
 begin
  tmp := x mod y;
  x := y;
  y := tmp;
 end;
exit(x);
end;
begin
readln(n);
for i := 1 to n do read(a[i]);
u := ucln(a[1],a[2]);
for i := 3 to n do
u := ucln(u,a[i]);
writeln(u);
readln;readln; 
end.