home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / READARRY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  427 b   |  23 lines
  1.                                 (* Chapter 10 - Program 5 *)
  2. program Read_Into_An_Array;
  3.  
  4. var Index : integer;
  5.     Place : array[1..10] of char;
  6.  
  7. begin
  8.    for Index := 1 to 5 do begin
  9.       Write('Enter up to 10 characters ');
  10.       Readln(Place );
  11.       Writeln('The data you entered was (',Place,')');
  12.    end;
  13. end.
  14.  
  15.  
  16.  
  17.  
  18. { Result of execution
  19.  
  20. (The result depends on the data entered at the keyboard)
  21.  
  22. }
  23.