Дана строка.Написать программу для вывода на экран длины этой строки

var s:string;beginreadln(s);writeln('Длина строки = ',length(s));end.Пример:one, two, threeДлина строки = 15