{* Произведение элементов с четными номерами *}

Unit PROIZVED_CHET;
Interface
Implementation
Begin
 writeln('Произведение элементов целочисленного одномерного массива с четными номерами, состоящего из n элементов. Элементы вводятся с клавиатуры.');
End.

Program proizved_chet;

Uses proizved_chet.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : Array [1..100] Of integer;
  i : integer;
  n : integer;
  p : integer;
Begin
  p := 1;
  write ('n=');
  readln (n);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    write ('a[', i, ']=');
    readln (a[i]);
    If i Mod 2 = 0 Then
      p := p * a[i];
  End;
  Writeln ('произведение элементов массива с четными номерами равно ', p);
End.