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 *)


Result of execution

      1      23.600     145.450     234.800

      2      -0.400      -0.050       0.345

      3       4.000    3456.000     123.000

      4      77.000       5.000      -0.003

      6       1.000       2.000       3.000

      7      12.120      13.110      14.140

      8       2.000       3.000       4.000