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

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.