Конечно, я могу помочь вам с этим заданием. Давайте начнем с написания кода на языке Pascal, который будет считать четные и нечетные числа.

Пример кода:

program CountEvenOddNumbers;
var
number, evenCount, oddCount: integer;
begin
evenCount := 0;
oddCount := 0;
repeat
writeln('Введите число (для завершения введите 0): ');
readln(number);
if (number <> 0) then
begin
if (number mod 2 = 0) then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;
end;
until (number = 0);
writeln('Количество четных чисел: ', evenCount);
writeln('Количество нечетных чисел: ', oddCount);
end.

В этом коде программа запросит у вас числа, пока вы не введете 0. Затем программа посчитает количество четных и нечетных чисел, которые вы ввели, и выведет результат.

Надеюсь, этот код поможет вам с вашим домашним заданием. Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать. Удачи вам!