with Ada.Text_IO; use Ada.Text_IO;
with kvadrov;

procedure solve is

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


begin

   kvadrov.Quadra(1.0,3.0,1.0,r1,r2,i1,i2,vysledek);
   Put_Line("Vysledky reseni: " & vysledek);
   Put_Line("K1 = " & r1'Img & " " & i1'Img & " i");
   Put_Line("K2 = " & r2'Img & " " & i2'Img & " i");

   end solve;