1. with Ada.Task_Identification; use Ada.Task_Identification; 
  2.  
  3. package Vehicle_Task_Type is 
  4.  
  5.    task type Vehicle_Task is 
  6.       entry Identify (Set_Vehicle_No : Positive; Local_Task_Id : out Task_Id); 
  7.    end Vehicle_Task; 
  8.  
  9. end Vehicle_Task_Type;