home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PASTUTOR.ZIP / READREAL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-09-16  |  358 b   |  16 lines
  1. PROGRAM read_some_real_variables;
  2.  
  3. VAR index : BYTE;
  4.     number            : INTEGER;
  5.     real1,real2,real3 : REAL;
  6.  
  7. BEGIN
  8.  
  9. WRITELN('Read some REAL variables');
  10. For index := 1 TO 5 DO
  11.   BEGIN
  12.     WRITE('Enter an integer and 3 reals ');
  13.     READLN(number,real1,real2,real3);
  14.     WRITELN(number:20,real1:12:3,real2:12:3,real3:12:3);
  15.   END;
  16. END.