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

Паскаль

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.