паскаль

[newlife]

дан одномерный массив.определить сумму элементов с четным индексом. Решите кто может.пожалуйста.

[DoDge_VipeR]

s:=0;
i:=2;
while i<=n do
begin
s:=s+a[i];
i:=i+2;
end;
writeln(s);

[Grag]

При условии, что индекс в массиве начинается с 1, а не с 0....