PROGRAM read_some_real_variables;

VAR index : BYTE;
    number            : INTEGER;
    real1,real2,real3 : REAL;

BEGIN

WRITELN('Read some REAL variables');
For index := 1 TO 5 DO
  BEGIN
    WRITE('Enter an integer and 3 reals ');
    READLN(number,real1,real2,real3);
    WRITELN(number:20,real1:12:3,real2:12:3,real3:12:3);
  END;
END.