Четные места

[varkich]

Вводится последовательность чисел. Подсчитать в ней количество четных чисел, стоящих на четных местах.
Формат входных данных
Вводится сначала число N, а затем N чисел - члены последовательности.
Формат выходных данных
Выведите количество четных чисел, стоящих на четных местах в последовательности.
Примеры
input.txt output.txt
5
1 2 4 5 6 1
Пояснение: единственное четное число, стоящее на четном месте в последовательности - это число 2. Числа 4 и 6 не подходят, так как стоят, соответственно, на 3 и 5-м местах.

[ByAlex]

kol:=0;
if not odd(A[i]) and not odd(i) then
   inc(kol);

[veniside]

and not odd(i)

а не проще i сразу на 2 увеличивать?

[ByAlex]

Сообщение от veniside

and not odd(i)

а не проще i сразу на 2 увеличивать?

Ну это уж слишком просто! Пусть понимают полный принцип данной проги.