home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PASCAL / PASCSRC.ARC / READCHAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  305 b   |  13 lines
  1.                                 (* Chapter 10 - Program 4 *)
  2. program Read_Some_Char_Data;
  3.  
  4. var  Letter : char;
  5.      Index  : byte;
  6.  
  7. begin
  8.    for Index := 1 to 5 do begin
  9.       Write('Input a character ');
  10.       Readln(Letter);
  11.       Writeln('The character input was an ',Letter);
  12.    end;
  13. end.