strpas1.pas

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

Код примера
 {StrPas.PAS}
 
 { Пример программы для функции StrPas }
 
 Uses Strings, WinCrt;
 
 Var A : Array [0..79] Of Char;
     S : String[79];
 Begin
  ReadLn(A);
  S:=StrPas(A);
  WriteLn(S);
 End.

Скачать strpas1.pas