program CountEvenOddNumbers;
var
i, num, evenCount, oddCount: integer;
begin
evenCount := 0;
oddCount := 0;
for i := 1 to 10 do
begin
write('Введите число ', i, ': ');
readln(num);
if num mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;
end;
writeln('Количество чётных чисел: ', evenCount);
writeln('Количество нечётных чисел: ', oddCount);
end.

Программа вводит 10 случайных чисел и выводит количество чётных и нечётных чисел среди них.