Дан массив B(N), N = 7. Найти сумму значений элементов, стоящих в массиве на четных местах.

Var const n=7; I,sum:integer; B:array[1..N] of integer; Begin Sum:=0; For I:=1 to N do Readl B[I]; For I:=1 to N do Begin If I mod 2=0 then sum:=sum+B[i]; End; Writeln(sum); End.