# 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) 
)   
)