home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pascal / pascsrc.arc / READINT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  923 b   |  27 lines
  1.                                 (* Chapter 10 - Program 2 *)
  2. program Read_Some_Variables;
  3.  
  4. var Index  : byte;
  5.     Number1,Number2,Number3 : integer;
  6.  
  7. begin  (* main program *)
  8.    Writeln('This is the ''Read'' portion of the program');
  9.    for Index := 1 to 5 do begin
  10.       Write('Enter up to three integers ');
  11.       Read(Number1,Number2,Number3);
  12.       Writeln('Thank you');
  13.       Writeln('The numbers entered were ',Number1:6,Number2:6,
  14.                                                        Number3:6);
  15.    end;
  16.  
  17.    Writeln;
  18.    Writeln('This is the ''Readln'' portion of the program');
  19.    for Index := 1 to 5 do begin
  20.       Write('Enter up to three integers ');
  21.       Readln(Number1,Number2,Number3);
  22.       Writeln('Thank you');
  23.       Writeln('The numbers entered were ',Number1:6,Number2:6,
  24.                                                        Number3:6);
  25.    end;
  26. end.  (* of main program *)
  27.