Найти наибольший общий делитель последовательности естественных чисел(сколько угодно чисел).

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программка не работает, обновите версию!

function gcd(a,b:int64):int64; // НОД
begin
  while blt;gt;0 do begin a:=a mod b; Swap(a,b) end;
  Result:=a
end;

begin
  Writeln('НОД=',ReadSeqIntegerWhile('Ввод завершается нулем: ',t-gt;tgt;0)
      .Aggregate(int64(0),(a,b)-gt;gcd(a,b)))
end.

Пример
Ввод заканчивается нулем:  78 294 570 36 0
НОД=6