home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / READREAL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  526b  |  25 lines
  1.                                 (* Chapter 10 - Program 3 *)
  2. program Read_Some_Real_Variables;
  3.  
  4. var Index : byte;
  5.     Number            : integer;
  6.     Real1,Real2,Real3 : real;
  7.  
  8. begin
  9.    Writeln('Read some Real variables');
  10.    for Index := 1 to 5 do begin
  11.       Write('Enter an integer and 3 reals ');
  12.       Readln(Number,Real1,Real2,Real3);
  13.       Writeln(Number:20,Real1:12:3,Real2:12:3,Real3:12:3);
  14.    end;
  15. end.
  16.  
  17.  
  18.  
  19.  
  20. { Result of execution
  21.  
  22. (The results depend on the data entered at the keyboard)
  23.  
  24. }
  25.