home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / READINT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  1KB  |  36 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.  
  28.  
  29.  
  30.  
  31. { Result of execution
  32.  
  33. (The results are dependent on the data entered at the keyboard)
  34.  
  35. }
  36.