program CountEvenOddDigits;
var
number, digit, evenCount, oddCount: integer;
begin
write${}^{\prime }Введитечетырехзначноечисло{:}^{\prime }$;
readln$number$;
evenCount := 0;
oddCount := 0;
for i := 1 to 4 do
begin
digit := $numberdivtrunc(power(10,4-i))$ mod 10;
if digit mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;
end;
writeln${}^{\prime }Количествочетныхцифр{:}^{\prime },evenCount$;
writeln${}^{\prime }Количествонечетныхцифр{:}^{\prime },oddCount$;
end.

Программа сначала запрашивает у пользователя четырехзначное число, затем с помощью цикла for вычисляет количество четных и нечетных цифр в этом числе. Результат выводится на экран.