Дано n>2 натуральных чисел. Найти их наибольший общий делитель

uses crt;
function NOD(a,b:longint):longint;
begin
repeat
if a>b then a:=a mod b
else b:=b mod a;
until (a=0)or(b=0);
NOD:=a+b;
end;
var a,b,c,t:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('t=');readln(t);
writeln;
writeln('NOD(a,b,c)=',NOD(t,c));
readln
end.

var a,b,c,t:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
//write('t=');readln(t); // это не нужно
t := NOD(a, b); // <-- добавить вот это
writeln;
writeln('NOD(a,b,c)=',NOD(t,c));
readln
end.

Read(a);
for i := 2 to n do begin
   Read(b); a := NOD(a, b);
end;
Writeln('NOD = ', a);

function gcd2(a, b: integer): integer := b = 0 ? a : gcd2(b, a mod b);
 
function gcd(params a: array of integer): integer;
begin
  Assert(a.Count > 1); // обработать если нужно
  Result := gcd2(a[0], a[1]);
  for var i := 2 to a.Count - 1 do Result := gcd2(Result, a[i]);
end;
 
begin
  Println(gcd(540, 144)); // 2 числа
  Println(gcd(525, 315, 210)); //3 числа
  Println(gcd(182, 784, 462, 2394)); //4 числа
  // и т.д.
end.