1package Task1_Pkg is 2 subtype Typ_Bool is boolean; 3 4 type Typ_Task_Par is record 5 Dummy : Typ_Bool; 6 end record; 7 8 type Typ_Task_Par_Tab is array (1 .. 33) of aliased Typ_Task_Par; 9 task type Typ_Task (dummy : Typ_Bool); 10end Task1_Pkg; 11