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

Question

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

Answer 1

program xxx;

var s : string;

     а : integer;

begin

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

   readln (s);

   а:= length(s)

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

   readln

end.