with Ada.Text_Io ;
procedure Afficher_Bienvenue is
  use Ada.Text_Io ;
begin
  Put_Line("Bienvenue en ADA") ;
end Afficher_Bienvenue ;