{* Сумма значений с четными номерами *}

Unit MAS_2;
Interface
Implementation
Begin
 writeln('Сумма значений с четными номерами');
End.

Program mas_2;

Uses mas_2.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Постоянные значения *}
  n = 5;
Var {* В работе нам потребуются переменные: *}
  a : Array[1..n] Of integer;
  i : integer;
  s : integer;
Begin
  clrscr; {* Очистка экрана *}
  randomize;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    a[i] := random(9);
    write(a[i]);
  End;
  writeln; {* Пустая строка *}
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    If odd(i) = false Then
      s := s + a[i];
  writeln(s);
  readkey; {* Ждем нажатия любой клавиши *}
End.