С клавиатуры вводят число. Составить программу которая: а) Определяет количество символов в нём; б) проверяет, не совпадают ли первая и последняя буква слова; в) выводит на экран первый, второй и последний символы; г) определяет, чётно или нечётно количество символов в слове.

В) program primer_4;

var a:string; k: integer;

begin

writeln ('Введите слово') ;

k:=length (a) ;

read (a) ;

read (a[1], a[2], a[k]) ;

end.

А) program primer_2;

var a:string;

n:integer;

begin

read (a) ;

n:=length (a) ;

writeln (n) ;

end.

Б) program primer_3; var a:string; k:integer; begin write ('Введите слово:') ; read (a) ; k:=length (a) ; if a[1]=a[k] then writeln ('Да') else writeln ('Нет') ; end.