program xxx;
var s : string;
а : integer;
begin
writeln ('Введите слово-');
readln (s);
а:= length(s)
writeln ('Длина слова=', a);
readln
end.
