Найти количество четных чисел в одномерном массиве размерностью ...

Дмитрий

var

  a : array [1..5] of integer;

  count, i ; integer;

begin

  count := 0;

  for i := 1 to 5 do read (a[i]);

  for i := 1 to 5 do

    if a[i] mod 2 = 0 then inc (count);

  writeln (count);

end.