-- Chapter 19 - Programming exercise 1
with Text_IO;
use Text_IO;

procedure CH19_1 is

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

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

   package Enum_IO is new Text_IO.Enumeration_IO(DAY);
   use Enum_IO;

   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);
      Put(Hours(Today),4,2,0);
      Put(" hours were worked on ");
      Put(Today);
      New_Line;
   end loop;

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

end CH19_1;




-- Result of Execution

--    8.00 hours were worked on MON
--    8.00 hours were worked on TUE
--    8.00 hours were worked on WED
--    8.00 hours were worked on THU
--    8.00 hours were worked on FRI
--    4.00 hours were worked on SAT
--    0.00 hours were worked on SUN
-- Total hours for the week =      44.00