Найти в массиве в (10) сумму элементов под четными номерами

Program summ;

var

B: array [1 ... 100] of integer;

n, i, sum: integer;

begin

writeln ('Введите количество элементов массива');

readln (n);

for i:=1 to n do B[i]:=random (100);

for i:=1 to n do

if i mod 2=0 then sum:=sum+B[i];

writeln ('Сумма элементов с четными индексами равна: ', sum);

readln;

end.

В условии используем функцию выделения остатка от деления mod. Если остаток от деления на 2 равен 0, значит число четное.