with Ada.Integer_Text_IO;

procedure Afficher_Un_Entier (N: in Integer) is
begin
    Ada.Integer_Text_IO.Put (N, 1);
end Afficher_Un_Entier;