with Text_IO;
use Text_IO;

-- Programme minimal qui affiche juste un message.
procedure Premier_Programme in
begin
    Put_Line ("Bravo ! Vous avez réussi à exécuter le programme.");
end Premier_Programme.