строковые - 2 урок (образцы решения)

Определить количество символов во введенной строке.

     program  P1;

        var  s:string; k:integer;

     begin

       write('Введите строку'); readln(s);

       k:=length(s);

       Writeln ('Количество= ', k)

     end.