home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1997 November
/
PCWorld_1997-11_cd.bin
/
software
/
programy
/
ozogan
/
TEST01.IPS
< prev
next >
Wrap
Text File
|
1997-06-17
|
210b
|
13 lines
PROCEDURE main
VAR
st : string
i : byte
ENDVAR
WRITE("Zadejte libovoln² °et∞zec: ")
READLN(st)
FOR i := 1 to length(st)
WRITELN(copy(st, 1, i))
ENDFOR
ENDPROC