with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO; use Ada; procedure Ada14 is x : Float := 14.9; i : Integer := 51; begin Text_IO.Put_Line("I = "); Integer_Text_IO.Put(i); Text_IO.New_Line; Text_IO.Put_Line("X = "); Float_Text_IO.Put(x); end Ada14;