1package Limited2_Pack_2 is 2 type C is (C1, C2, C3); 3 4 procedure Create (P : in C); 5end Limited2_Pack_2; 6