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

Program summ;var B: array [1..100] of integer;n, i, sum: integer;beginwriteln(\'Введите количество элементов массива\');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, значит число четное.