home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / TEST01.IPS < prev    next >
Text File  |  1998-03-25  |  241b  |  14 lines
  1. PROCEDURE main
  2.    VAR
  3.       st : string
  4.       i  : byte
  5.    ENDVAR
  6.  
  7.    ConsoleClear; ConsoleShow;
  8.    WRITE("Zadejte libovoln² °et∞zec: ")
  9.    READLN(st)
  10.    FOR i := 1 to length(st)
  11.        WRITELN(copy(st, 1, i))
  12.    ENDFOR
  13. ENDPROC
  14.