Pascal - В целочисленном массиве А (35) найти количество четных элементов, имеющих нечетные индексы.

Kol := 0;
N := 1;
repeat
if Not Odd(A[N]) then Inc(Kol);
Inc(N, 2);
until N > 35;
WriteLn(Kol);