Перечислите исторические события и лиц, которые изображались в произведениях литературы и живописи.

Допустим слово ввели в программу так
read(s); где s - переменная типа string
тогда для s справедливо выражение
a:=length(s); где a - переменная типа integer
библиотечная функция Length() возвращает длину строки.
А длина строки в свою очередь и есть кол-во букв в слове
Итак код
//
program one;
var s:string;
a:integer;
begin
Write('Введите слово:');
readln(s);
a:=length(s);
write('Кол-во букв в слове=',a);
end.