-- Illustrates use of records -- Reads a list of employees and print those with high salaries with ada.text_io; use ada.text_io; with ada.float_text_io; use ada.float_text_io; procedure employ1 is type employee is record name: string(1 .. 20); id: string(1 .. 6); salary: float; end record; e: employee; begin skip_line; while not end_of_file loop get(e.name); get(e.id); get(e.salary); if e.salary > 50_000.00 then put(e.name); put(e.id); put(e.salary, 9, 2, 0); new_line; end if; end loop; end employ1;