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

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

if (num mod 2 = 0) and (num > 0) then
count := count + 1;

end;

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