Определите количество чётных положительных элементов массива А

Паскаль

var A:array[1 ... 100] of integer;

n, i, k:integer;

begin

write ('Введите количество элементов массива: '); readln (n);

writeln ('Введите элементы массива: ');

for i:=1 to n do

read (a[i]);

for i:=1 to n do

if (a[i]>0) and (not odd (a[i])) then inc (k);

writeln ('кол-во четных положительных элементов = ', k);

end.