-- Chapter 19 - Programming exercise 1
with Ada.Text_IO, Ada.Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;

procedure CH19_1 is

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

   package Enum_IO is new Ada.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