PROGRAM read_real_data_from_a_file;

VAR  hot_dog : TEXT;
     index   : BYTE;
     line_number : INTEGER;
     real1,real2,real3 : REAL;

BEGIN  (* main program *)
  ASSIGN(hot_dog,'REALDATA.TXT');
  RESET(hot_dog);

  FOR index := 1 TO 7 DO
  BEGIN
    READLN(hot_dog,line_number,real1,real2,real3);
    WRITELN(line_number:7,real1:12:3,real2:12:3,real3:12:3);
  END;
  CLOSE(hot_dog);
END.  (* of main program *)