with Numeros_complejos; use Numeros_complejos;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;
procedure Main is
   numero1,numero2,numero3 : complejo;
begin
   numero1:=constructor(7.00,1.00);
   numero2:=constructor(3.00,5.00);
   Put_line("Los numeros complejos utilizados son los siguientes:");
   --Imprimimos por pantalla la parte real
   put(P_real(numero1),0,2,0);
   put(" ");
   --Comprobamos que tenemos parte imaginaria
    if (P_imaginaria(numero1)>=0.0) then
      put("+");
   else
      put("");
   end if;
   put(" ");
   --La mostramos y lo repetimos en el resto de casos
   put(P_imaginaria(numero1),0,2,0);
   put("i");
   Put_Line("");
    put(P_real(numero2),0,2,0);
   put(" ");
    if (P_imaginaria(numero2)>=0.0) then
      put("+");
   else
      put("");
   end if;
   put(" ");
   put(P_imaginaria(numero2),0,2,0);
   put("i");
   Put_Line("");

   Put("Suma = ");
   numero3:=numero1+numero2;
   Put(P_real(numero3),0,2,0);
   put(" ");
   if (P_imaginaria(numero3)>=0.0) then
      put("+");
   else
      put("");
   end if;
   put(" ");
   Put(P_imaginaria(numero3),0,2,0);
   Put("i");
   Put_Line(" ");
   Put("Resta = ");
   numero3:=numero1-numero2;
   Put(P_real(numero3),0,2,0);
   put(" ");
    if (P_imaginaria(numero3)>=0.0) then
      put("+");
   else
      put("");
   end if;
   put(" ");
   Put(P_imaginaria(numero3),0,2,0);
   Put("i");
   Put_line("");
   put("Multiplicacion = ");
   numero3:=numero1*numero2;
   put(P_real(numero3),0,2,0);
   put(" ");
   if (P_imaginaria(numero3)>=0.0) then
      put("+");
   else
      put("");
   end if;
   put(" ");
   put(P_imaginaria(numero3),0,2,0);
   put("i");
   Put_Line("");
   Put("Division = ");
   numero3:=numero1/numero2;
   put(P_real(numero3),0,2,0);
   put(" ");
      if (P_imaginaria(numero3)>=0.0) then
      put("+");
   else
      put("");
   end if;
   put(" ");
   Put(P_imaginaria(numero3),0,2,0);
   put("i");
   Put_Line("");
   numero3:=conj(numero1);
   put("Conjugado = ");
   put(P_real(numero3),0,2,0);
   put("");
    if (P_imaginaria(numero3)>=0.0) then
      put("+");
   else
      put("");
   end if;
   Put(" ");
   Put(P_imaginaria(numero3),0,2,0);
   put("i");
   Put_Line("");
end Main;