Пользователь вводит 10 чисел. Определить, сколько из них являются одновременно четными и положительными. ( авс паскаль )

Предыдущий
вопрос Следующий
вопрос

Program CountEvenPositive;
var
i, num, count: integer;
begin
count:= 0;

for i := 1 to 10 do
begin
write('Введите число: ');
readln(num);

end;

writeln('Количество одновременно четных и положительных чисел: ', count);
end.