package GAda.Float_Text_IO is -- Lit et retourne un réel function FGet return Float ; -- Affiche un réel procedure Put (Aff : in Float) ; -- Lit un réel (version originale) procedure Get (Item : out Float) ; end GAda.Float_Text_IO ;