home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / pascal_tut / pas / readreal < prev    next >
Encoding:
Text File  |  1992-11-14  |  343 b   |  17 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.
  17.