Дан массив L(12). Найти сумму элементов с четными индексами

Question

Дан массив L(12). Найти сумму элементов с четными индексами

Answer 1

Program qq;
const N=12;
var L:array[1..N] of integer;
      i, S:integer;
begin
for i:=1 to N do readln(L[i]);
S=0;
for i:=0 to N do
  if (imod2=0) then S=S+A[i];
writeln(s);
end.