-- 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;