uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');

end.