Решить с клавиатуры вводятся 10 чисел, определите количество четных и нечётных чисел.​

Все очень легко и просто.

Program n_1;

var a, b, n, i:integer;

begin

   a:=0; b:=0;

   for i:=1 to 10 do begin

       read(n);

       if n mod 2 = 1 then a:=a+1

       else b:=b+1;

   end;

   writeln('Вы ввели ', b, ' четных и ', a, ' нечетных чисел');

end.