-- Chapter 19 - Program 2
with Text_IO;
use Text_IO;

procedure EnumAry is

   package Flt_IO is new Text_IO.Float_IO(FLOAT);
   use Flt_IO;

   type DAY is (MON,TUE,WED,THU,FRI,SAT,SUN);

   Hours       : array(DAY) of FLOAT;
   Total_Hours : FLOAT;
   Today       : DAY;

begin
   for Today in MON..FRI loop
      Hours(Today) := 8.0;
   end loop;

   Hours(SAT) := 4.0;
   Hours(SUN) := 0.0;

   Total_Hours := 0.0;
   for Today in DAY loop
      Total_Hours := Total_Hours + Hours(Today);
   end loop;

   Put("Total hours for the week =");
   Put(Total_Hours,8,2,0);
   New_Line;

end EnumAry;




-- Result of Execution

-- Total hours for the week =      44.00