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

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