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

Var str: String;
begin
ReadLn(str);
if length(str) mod 2 = 0 then WriteLn('Четное.')
else WriteLn('Нечетное.');
ReadLn
end.