14.7. -

- . ; . . ; .

with TEXT_IO; use TEXT_IO;procedure DIALOGUE is   type COLOR is (WHITE, RED, ORANGE, YELLOW, GREEN, BLUE, BROWN);   package COLOR_IO is new ENUMERATION_10(ENUM => COLOR);   package NUMBER_IO is new INTEGER_IO(INTEGER);   use COLOR_IO, NUMBER_IO;   INVENTORY : array (COLOR) of INTEGER := (20, 17, 43, 10, 28, 173, 87);   CHOICE : COLOR;   procedure ENTER_COLOR (SELECTION : out COLOR) is    begin      loop         begin            PUT ("Color selected: "); -—               GET (SELECTION);          -—                  return;         exception            when DATA_ERROR =>               PUT("lnvalid color, try again. ");--                    NEW_LINE(2);               --              end;      end loop;      -—   ,          end;begin --   DIALOGUE;   NUMBERJO.DEFAULT_WIDTH := 5;   loop      ENTER_COLOR(CHOICE); --                                -—         SET_COL(5);   PUT(CHOICE);   PUT(" items available:");      SET_COL(40);  PUT(INVENTORY(CHOICE));   -—     5       NEW_LINE;   end loop;end DIALOGUE;

( ):

 : Black  ,   : Blue    BLUE  : 173  : Yellow    YELLOW  : 10