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

var D: array [1..35] of integer;     i, sum : integer;BEGINfor i:=1 to 35 doread(D[i]);sum:=0;for i:=1 to 35 doif i mod 2 <> 0 then sum:=sum+D[i];writeln(sum);END.