Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Найти сумму элементов массива с четными индексами в паскале.

program SumShet;

  {Найти сумму элементов массива с четными индексами}
const
  N = 10;
var
  i_ArNm: array[1..N] of integer;
  i, i_Sum: integer;
begin
  randomize;
  Writeln('Заполнение массива псевдослучайными числами');
  for i := 1 to N do
    i_ArNm[i] := random(20);
  {Чтение массива, вычисление суммы элементов массива}
  for i := 1 to N do
    if (i mod 2) = 0 then
    begin
      i_Sum := i_Sum + i_ArNm[i];
      WriteLn('Четный элемент: ', i, ' число ', i_ArNm[i]);
    end;

  WriteLn('сумма четных элементов: ', i_Sum);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Найти сумму элементов массива с четными индексами в паскале.