Помогите решить пожалуйста, pascal

Даны 5 натуральных чисел: a1,a2,a3,a4,a5

Определить количество чётных и нечетных чисел

мы так не проходили еще, не примут

Откуда мне знать, как вы там у себя "проходили"? И потом, в условии написано решить на паскале. Условие выполнено.

Мы тут даем решение задания так, чтобы оно не противоречило Вашему условию. Но это вовсе не значит, что у нас стоит задача помочь Вам работу любым способом "спихнуть".

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var (ke,ko):=(0,0);

 loop 5 do

   if ReadInteger.IsOdd then Inc(ko)

   else Inc(ke);

 Writeln('Четных ',ke,', нечетных ',ko)

end.