with Ada.Text_IO; 

with Ada.Float_Text_IO; 

with Ada.Numerics.Generic_Elementary_Functions; -- For Square root

procedure Hypotenuse is 

   package Calculator is new Ada. --Shortcut, builds an object named 

   Numerics. 

   Generic_Elementary_Functions 

   (Float_Type => Float); --Type parameter

   Side_A : Float := 3.0;

   Side_B : Float := 4.0; 

   H : Float := 0.0; 

begin 

  H := (Side_A ** 2) + (Side_B ** 2); 

  H := Calculator.Sqrt(H); 

  Ada.Float_Text_IO.Put(H); 

end Hypotenuse;