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 e1 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);
put(name);
put(id);
put(salary, fore=>9, aft=>2, exp=>0);
new_line;
end loop;
put_line("all done");
end e1;