Написать программу на паскале, определяющую, является ли количество букв во введенном слове четным или нечетным.

Предыдущий
вопрос Следующий
вопрос

program CountLetters;
var
word: string;
begin
Write('Введите слово: ');
Readln(word);
if Length(word) mod 2 = 0 then
Writeln('Количество букв в слове четное.')
else
Writeln('Количество букв в слове нечетное.');
end.

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