k:=0;  {счетчик четных чисел, обнуляем}
for i:=1 to n do               {проходим по всему массиву в цикле}
  if not Odd(a[i]) then Inc(k);   {если a[i] НЕ нечетное - увеличиваем счетчик}
WriteLn(k);    {вывод количества четных элементов}