Условие: Определить длину строки, введенной пользователем.

var
 s: string;
 len: byte;
begin

 write('Введи строку ');
 readln(s);
 len := length(s);
 writeln('Длина строки = ', len);
readln;

end.