{* Определение длины строки *}

Unit DLINSTR;
Interface
Implementation
Begin
 writeln('Определение длины строки, введенной пользователем.');
End.

Program pas50729;

Uses dlinstr.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s   : String;
  len : byte;
Begin
  write('Input String: ');
  readln(s);
  len := length(s);
  writeln('Its lenght is ', len, ' characters.');
  readln
End.