Вмассиве d1, найти сумму чисел, расположенных на нечетных местах

Var D: array [1..35] of integer;
     i, sum : integer;
BEGIN
for i:=1 to 35 do
read(D[i]);
sum:=0;
for i:=1 to 35 do
if i mod 2 <> 0 then sum:=sum+D[i];
writeln(sum);
END.