with ada.text_io; use ada.text_io; 
with ada.integer_text_io; use ada.integer_text_io; 
with ada.float_text_io; use ada.float_text_io; 
 
procedure emp1  is 
    name: String(1..20);
    id: String(1..6);
    salary: Float;
begin
    skip_line;
    while not end_of_file loop
        get(name);
        get(id);
        get(salary);

        if salary > 100_000.00 then
            put(name);
            put(id);
            put(salary, fore=> 7, aft=> 2, exp=>0);
            new_line;
        end if;

    end loop;
end emp1;