Одномерный массив из N элементов. Найти сумму элементов массива с четными номерами.

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

begin
  var a:=ArrRandom(ReadInteger(n=),-99,99); a.Println;
  Writeln(Sчет=,a.Where((x,i)-gt;i.IsOdd).Sum)
end.

Пример
n= 15
10 -12 -5 65 -39 -76 -38 -68 69 87 94 11 -61 -2 -13
Sчет=5

Var
a: array[1..1000] of integer;
i,s,N: integer;
begin
s:=0;
write(Введите N: );
readln(N);
for i:= 1 to N do begin
readln(a[i]);
if i mod 2 = 0 then s:=s+a[i];
end;
writeln(Сумма элементов с четными номерами: ,s);
end.