Программа на языке Паскаль program pr; s: string; begin readln (s); if length(s) mod 2=0 then writeln ('Четное') else writeln('Не четное'); readln; end.