with Ada.Text_IO.Enumeration_IO; procedure values is type Days is (monday, tuesday, wednesday); package Days_IO is new Ada.Text_IO.Enumeration_IO (Days); begin Days_IO.Put(Days'First); end values;
