# Programme accueil
(Declarer tirage De_type "nombre")
(Declarer nbr De_type "nombre")
(Affecter_a tirage  (Entier@ 1 20))
(Afficher "Choisissez un nombre !")
(Faire
     (Affecter_a nbr (Demander_un_nombre))
(Si (< nbr tirage)
Alors
     (Afficher "Trop petit")
)
(Si (> nbr tirage)
Alors
     (Afficher "Trop grand")
)
(Si (=/ nbr tirage)
Alors
     (Afficher "Choisissez un autre nombre !")
)
Tant_que (=/ nbr tirage))
(Si (= nbr tirage)
Alors
     (Afficher "Vous avez réussi !")
)