--  Read and print all the employees

with ada.text_io; use ada.text_io; 
with ada.float_text_io; use ada.float_text_io; 
 
procedure emp1  is 
   type Employee is record
      Name: String(1 .. 20);
      ID: String(1 .. 6);
      Salary: Float;
   end record;

   e_tmp: Employee;
begin
   while not end_of_file loop
      get(e_tmp.Name);
      get(e_tmp.ID);
      get(e_tmp.salary);

      put(e_tmp.Name);
      put(e_tmp.ID);
      put(e_tmp.salary, 7, 2, 0);
      new_line;
   end loop;

   --  What does this print?
   put(e_tmp.Name);
   put(e_tmp.ID);
   put(e_tmp.salary, 7, 2, 0);
   new_line;
end emp1;