Напишите программу, которая вычисляет длину введенной с клавиатуры строки.

var

s: string; / / объявляем переменную, в ней будем хранить введенную строку

len: integer; / / объявляем переменную, в ней будем хранить длину строки

begin

write ('Введите строку: '); / / выводим строку на экран

readln (s); / / считываем введенную строку

len : = length (s); / / вычисляем длину строки

writeln ('Длина введенной строки ', len,' симв. '); / / выводим на экран результат

end.