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

var
   s: string;         // объявляем переменную, в ней будем беречь введенную строчку 
   len: integer;    // объявляем переменную, в ней будем беречь длину строки
begin
   write(Введите строчку: ); // выводим строчку на экран
   readln(s);                        // считываем введенную строчку
   len := length(s);              // вычисляем длину строчки
   writeln(Длина введенной строки , len, симв. );   // выводим на экран итог
end.