package Limited2_Pack_2 is
   type C is (C1, C2, C3);

   procedure Create (P : in C);
end Limited2_Pack_2;