package Numeros_complejos is
   type complejo is private;
   --igualdad y asignación definidas
   function constructor(X,Y: float) return complejo;
   function "+"(X,Y :complejo) return complejo;
   function "-"(X,Y :complejo) return complejo;
   function "*"(X,Y :complejo) return complejo;
   function "/"(X,Y :complejo) return complejo;
   function conj(X: complejo) return complejo;
   function P_real(X:complejo) return Float;
   function P_imaginaria(X:complejo) return Float;
 private  type complejo is
      record
         P_real: Float;
         P_imaginaria: Float;
      end record;
end Numeros_complejos;