home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
APDL Public Domain 1
/
APDL_PD1A.iso
/
program
/
pascal_tut
/
pas
/
readstrg
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-11-14
|
219 b
|
14 lines
PROGRAM read_a_string;
VAR index : BYTE;
field : STRING[10];
BEGIN
FOR index := 1 TO 5 DO
BEGIN
WRITE('Enter up to 10 characters ');
READLN(field);
WRITELN('The data you entered was (',field,')');
END;
END.