Введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями

Var a:array [1..10] of integer; 
i,n:integer; 
begin 
n:=0; 
writeln(Введите числа); 
for i:=1 to 10 do begin 
readln(a[i]); 
if (a[i]mod 2 =0)and(a[i]>0) then 
n:=n+1; 
end; 
writeln(n=,n); 
end.

(Если ответ Вас удовлетворяет, не забудьте отметить решение, как лучшее)