Программа

Program SumOfElements;
{ Поиск произведения элементов 
  с четными индексами одномерного
  массива E размерности K }
Const K=7; { Размерность массива }
Var Product:integer; { Переменная для набора произведения }
    E:array[1..K] of integer; { Описание рабочего массива }
    i:integer; { Служебный счетчик для организации циклов }
BEGIN
  Product:=1; { Определение начального состояния произведения }
  for i:=1 to K do  { Цикл ввода массива }
    Begin
      Write('Введите элемент E[',i,'] ');
        { Вывод приглашения ввести элемент массива }
      ReadLn(E[i]) { Ввод элемента массива }
    End;
  for i:=1 to K do if not Odd(i) then Product:=Product*E[i];
                                     { Просмотр массива и набор произведения }
  WriteLn('Сумма элементов с четными индексами ',Product) { Вывод результата }
END.