with Ada.Text_io; use Ada.Text_io; procedure enum2 is type Color is (Red, Blue, Green); type Day is (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday); package Color_IO is new Enumeration_IO(Color); package Day_IO is new Enumeration_IO(Day); use Color_IO; use Day_IO; c: Color; d: Day; x: character; s: String(1..2); begin while not end_of_file loop get(c); put(c); put(" "); get(x); get(s); put(s); put(" "); get(d); put(d); new_line; end loop; end enum2;