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