generic type Element_Type is private; package Fixed_Queues is type Element_Array is array(Positive range <>) of Element_Type; protected type Queue(Max_Length : Positive) is function Length return Natural; entry Put(Item : in Element_Type);…