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