generic type Element is private; Queue_Size : Positive := 10; package Queue_Pack_Task_Generic is
type Element is private;
Queue_Size : Positive := 10;
entry Enqueue
entry Dequeue
entry Is_Empty
entry Is_Full