-- Chapter 19 - Program 2
with Ada.Text_IO, Ada. Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;

procedure EnumAry is

   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, 5, 2, 0);
   New_Line;

end EnumAry;




-- Result of Execution

-- Total hours for the week =   44.00