(Declarer nbre Detype “nombre”)
(Declarer n Detype “nombre”)
(Declarer max Detype “nombre”)
(Declarer g Detype “nombre”)
(Affectera g 0)
(Affectera n 0)
(Affectera max 0)
(Affectera nbre (Nombre (Demander)))
(Affectera g nbre)
(Afficher nbre)
(Tantque ( =/ 1 nbre)
Faire
(Si (= 1 (% nbre 2)) Alors (Affecter_a nbre (+(* nbre 3)1)) (Affecter_a n (+ n 1)) (Si ( > nbre max) Alors (Affecter_a max nbre) ) Sinon (Affecter_a nbre (/ nbre 2)) (Affecter_a n (+ n 1)) )
) (Afficher “Nombre de tour :”) (Afficher n) (Afficher “Valeur max :”) (Afficher max)