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