program CountEvenOddDigits;

var
number, digit, evenCount, oddCount: Integer;

begin
evenCount := 0;
oddCount := 0;

write('Enter a number: ');
readln(number);

while number <> 0 do
begin
digit := number mod 10;
number := number div 10;

if digit mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;

end;

writeln('Number of even digits: ', evenCount);
writeln('Number of odd digits: ', oddCount);
end.