length.pas

Пример программы для функции Length.

Код примера
 {Length.PAS}
 
 { Пример программы для функции Length }
 
 Uses WinCrt;
 
 Var S : String;
 
 Begin
  ReadLn(S);
  WriteLn('"', S, '"');
  WriteLn('Длина = ', Length(S));
 End.

Скачать length.pas