программа которая определяет количество символов в слове

Вопрос от посетителя:

программа которая определяет количество символов в слове

Илюха отвечает:

program xxx;

var s : string;

     а : integer;

begin

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

   readln (s);

   а:= length(s)

   writeln (‘Длина слова=’, a);

   readln

end.