with Ada.Text_IO;
with Ada.Float_Text_IO;
with Ada.Integer_Text_IO;
with kvadrov;

procedure solve is

	package TIO renames Ada.Text_IO;
	package FIO renames Ada.Float_Text_IO;
	package DIO is new Ada.Text_IO.Float_IO(Float);

	package IIO renames Ada.Integer_Text_IO;

   r1,r2,i1,i2 :Float;
   vysledek : Character;

   int : Integer := 10;

begin

   kvadrov.Quadra(1.0,3.0,1.0,r1,r2,i1,i2,vysledek);

   if vysledek = 'E' then
		TIO.Put_Line(" Vypocet prerusen z duvodu spatneho zadani koeficientu!");
   return;
   end if;
   
   TIO.Put_Line("Vysledky reseni: " & vysledek);
   TIO.Put("K1 = " );
   FIO.Put(Item => r1, Fore => 3, Aft => 6, Exp => 0);
   TIO.Put(" ");
   FIO.Put(Item => i1, Fore => 3, Aft => 6, Exp => 0);
   TIO.Put(" i");

   TIO.New_Line;
   TIO.Put("K2 = " );
   DIO.Put(Item => r2, Fore => 3, Aft => 6, Exp => 0);
   TIO.Put(" ");
   DIO.Put(Item => i2, Fore => 3, Aft => 6, Exp => 0);
   TIO.Put(" i");

   TIO.New_Line;
   TIO.Put("INT-B10 = ");
   IIO.Put(Item => Int, Width => 3, Base => 10);

   TIO.New_Line;
   TIO.Put("INT-B2 = ");
   IIO.Put(Item => Int, Width => 8, Base => 2);   

   TIO.New_Line;
   TIO.Put("INT-B8 = ");
   IIO.Put(Item => Int, Width => 8, Base => 8);

   TIO.New_Line;
   TIO.Put("INT-B16 = ");
   IIO.Put(Item => Int, Width => 8, Base => 16);   

   end solve;