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

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