home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
pascal2.zip
/
READARRY.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
330b
|
14 lines
(* Chapter 10 - Program 5 *)
program Read_Into_An_Array;
var Index : integer;
Place : array[1..10] of char;
begin
for Index := 1 to 5 do begin
Write('Enter up to 10 characters ');
Readln(Place);
Writeln('The data you entered was (',Place,')');
end;
end.