Составить программу для нахождения НОД десяти двухзначных чисел. Паскаль.

function gcd(a,b:integer):integer; // НОД
begin
  while b<>0 do begin a:=a mod b; Swap(a,b) end;
  Result:=a
end;

begin
  var a:=ReadArrInteger('Введите 10 натуральных двухзначных чисел:',10);
  var g:=gcd(a[0],a[1]);
  for var i:=2 to 9 do g:=gcd(g,a[i]);
  Writeln('НОД=',g)
end.


Введите 10 натуральных двухзначных чисел: 38 42 56 82 96 32 18 40 58 90
НОД=2