home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / 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.