1. package Dynamic_Tasks is 
  2.  
  3.    subtype Dynamic_Id_Range is Positive         range 1 .. 1_000; 
  4.    subtype Few_Ids          is Dynamic_Id_Range range 1 .. 3; 
  5.  
  6.    task type Dynamic_Task (Id : Dynamic_Id_Range) is 
  7.       entry Start; 
  8.    end Dynamic_Task; 
  9.  
  10.    type Dynamic_Task_Ptr is access Dynamic_Task; 
  11.  
  12.    Dynamic_Task_is_not_too_well : exception; 
  13.  
  14. end Dynamic_Tasks;