{* Количество четных элементов *}

Unit KOLVсCHET;
Interface
Implementation
Begin
 writeln('В массиве, состоящем из n целых чисел, подсчитать количество четных элементов. ');
End.

Program kolvсchet;

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