package body Numeros_complejos is
   resultado: complejo;
   a,b,c,d: float;
   function constructor(X,Y: float) return complejo is
   begin
      resultado.P_real:= X;
      resultado.P_imaginaria:=Y;
    return resultado;
   end constructor;
function "+"(X,Y :complejo) return complejo is
   begin
      a:=X.P_real;
      b:=Y.P_real;
      c:=X.P_imaginaria;
      d:=Y.P_imaginaria;
      resultado.P_real:= a+b;
      resultado.P_imaginaria:=c+d;
  Return resultado;
   end "+";
function "-"(X,Y :complejo) return complejo is
   begin
      a:=X.P_real;
      b:=Y.P_real;
      c:=X.P_imaginaria;
      d:=Y.P_imaginaria;
      resultado.P_real:= a-b;
      resultado.P_imaginaria:=c-d;
   Return resultado;
end "-";
function "*"(X,Y :complejo) return complejo is
   begin
      a:=X.P_real;
      b:=Y.P_real;
      c:=X.P_imaginaria;
      d:=Y.P_imaginaria;
      resultado.P_real:=(a*b)-(c*d);
      resultado.P_imaginaria:=(a*d)+(b*c);
   Return resultado;
end "*";
function "/"(X,Y :complejo) return complejo is
   begin
      a:=X.P_real;
      b:=Y.P_real;
      c:=X.P_imaginaria;
      d:=Y.P_imaginaria;
      resultado.P_real:=((a*b)+(c*d))/((b*b)+(d*d));
      resultado.P_imaginaria:=((b*c)-(a*d))/((b*b)+(d*d));

   Return resultado;
end "/";
function conj(X: complejo) return complejo is
   begin
      a:=X.P_real;
      b:=X.P_imaginaria;
      Resultado.P_real:=a;
      Resultado.P_imaginaria:=b*(-1.00);
  Return resultado;
end conj;
function P_real(X:complejo) return Float is
   begin
      a:=X.P_real;
   Return a;
end P_real;
function P_imaginaria(X:complejo) return Float is
   begin
     b:=X.P_imaginaria;
  Return b;
end P_imaginaria;
end Numeros_complejos;