home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / ozogan / TEST01.IPS < prev    next >
Text File  |  1997-06-17  |  210b  |  13 lines

  1. PROCEDURE main
  2.    VAR
  3.       st : string
  4.       i  : byte
  5.    ENDVAR
  6.  
  7.    WRITE("Zadejte libovoln² °et∞zec: ")
  8.    READLN(st)
  9.    FOR i := 1 to length(st)
  10.        WRITELN(copy(st, 1, i))
  11.    ENDFOR
  12. ENDPROC
  13.