# Programme syracuse (Afficher "Donner un entier :") (Initialiser nb (Nombre (Demander))) (Faire (Si (= 0 (% nb 2)) Alors (Affecter_a nb(/ nb 2)) Sinon (Affecter_a nb(+ (* nb 3) 1)) ) (Afficher nb) Tant_que(=/ nb 1) ) )