package Dynamic_Tasks is
subtype Dynamic_Id_Range is Positive range 1 .. 1_000;
subtype Few_Ids is Dynamic_Id_Range range 1 .. 3;
type Dynamic_Task_Ptr is access Dynamic_Task;
Dynamic_Task_is_not_too_well : exception;
Id: Dynamic_Id_Range)
entry Start;