Найти сумму элементов массива,имеющих нечётные номера.
Помогите пожалуйста 30 баллов даю

n - количество элементов массива, после этого вводится каждый элемент.

var sum,n,i:integer;

a:array[1..100000] of integer;

begin

sum:=0;

readln(n);

for i:=1 to n do begin readln(a[i]); if(i mod 2 <> 0) then sum:=sum+a[i]; end;

writeln(sum);

end.