program CountDigits;
var
num, count: integer;
begin
writeln('Введите натуральное число: ');
readln(num);

count := 0;

while num > 0 do
begin
num := num div 10;
count := count + 1;
end;

if count mod 2 = 0 then
writeln('Количество цифр числа является четным числом')
else
writeln('Количество цифр числа не является четным числом');
end.