Var
c:string;
Begin
read(c);
If length(c) mod 2 = 0 then
write('Количество цифр четно')
else
write('Количество цифр нечетно');
end.
Var
c:string;
Begin
read(c);
If length(c) mod 2 = 0 then
write('Количество цифр четно')
else
write('Количество цифр нечетно');
end.