Дано натуральное число. Верно ли, что количество его цифр есть четное число?Паскаль.

Var

c:string;

Begin

read(c);

If length(c) mod 2 = 0 then

write('Количество цифр четно')

else

write('Количество цифр нечетно');

end.