uses crt; var s: string; begin writeln('Напишите слово'); readln(s); writeln(length(s) ,' символов');
writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');
if (s[length(s)] = s[1]) then begin writeln('совпадают'); end else writeln('не совпадают'); if (length(s) mod 2 = 0) then begin writeln('четное кол-во'); end else writeln('не четное');