package kvadrov is

procedure Quadra (A, B, C : in  Float; R1, R2, I1, I2 : out Float; Result : out Character);

end kvadrov;