Склавиатуры вводится слово. составить программу, которая: а) определяет количество символов в нем; б) определяет, ли первая и последняя буквы слова; в) выводит на экран его первый, третий и последний символ; г) определяет, четно или нечетно количество символов в нем.
pascal abc
var s: string;
begin
readln(s);
writeln('кол-во символов: ',length(s));
if s[1]=s[length(s)] then
writeln('первая и последняя буквы слова совпадают')
else writeln('первая и последняя буквы слова не совпадают');
writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);
if length(s) mod 2=0 then write('кол-во символов четное')
else write('кол-во символов нечетное');
end.