uses crt;var s: string;beginwriteln('Напишите слово');readln(s);if (length(s) mod 2 = 0) then begin writeln('четное кол-во'); end else writeln('не четное');end.
===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
8 0 0
0 5 3
3 5 0
3 2 3
6 2 0
1 5 2
1 4 3
4 4 0