Помогите составить программу (Turbo pascal)

Question

Нужно составить программу (Turbo pascal), которая для слова, введенного с клавиатуры, определяет первую букву, последнюю букву и количество букв в слове.

Екатерина · Accepted Answer

readln(s); 
writeln(s[1], s[length(s)], length(s));

Анастасия Кабанова · Answer

фотки зачетные.

Светлана Бадреева · Answer

program slovo;
var a:string;
b:integer;
BEGIN
writeln ('Vvedite slovo...');
readln (a);
b:=length(a); // вычисляем количество букв
If b<>0 then
writeln ('Первая буква... ',a[1],'; Последняя буква.. . ',a[ b ],'; Количество цифр... ', b) // выводим результаты
else writeln ('Неправильно введено слово! ');
END.

Где writeln, последняя буква - a [ b ]