-- Chapter 31 - Program 4
generic
   type ITEM is range <>;
   with procedure Funny_Average(A, B, C : ITEM;
                                Result  : in out ITEM);
package Dis_Avg is
   procedure Display_Funny_Average(A, B, C : ITEM);
end Dis_Avg;




with Ada.Text_IO;
use Ada.Text_IO;

package body Dis_Avg is

   package Int_IO is new Ada.Text_IO.Integer_IO(ITEM);
   use Int_IO;

   procedure Display_Funny_Average(A, B, C : ITEM) is
   Mean : ITEM;
   begin
      Funny_Average(A, B, C, Mean);
      Put("The funny average is ");
      Put(Mean, 5);
      New_Line;
   end Display_Funny_Average;
end Dis_Avg;



with Dis_Avg;

procedure ProcPkg is

   procedure R_Average(First, Second, Third : INTEGER;
                       Weighted_Average : in out INTEGER) is
   begin
      Weighted_Average := (First + 2 * Second + Third) / 4;
   end R_Average;

   package Averages is new Dis_Avg(INTEGER, R_Average);

begin
   Averages.Display_Funny_Average(1, 3, 5);
   Averages.Display_Funny_Average(1, 3, 17);
   Averages.Display_Funny_Average(3, 17, 5);
end ProcPkg;




-- Result of execution

-- The funny average is    3
-- The funny average is    6
-- The funny average is   10