# Programme syracuse
(Afficher "Entrer un nombre entier")
(Declarer n De_type "nombre")
(Affecter_a n (Demander_un_nombre))
(Declarer tdv De_type "nombre")
(Affecter_a tdv 0)
(Afficher n)
(Declarer altmax De_type "nombre")
(Affecter_a altmax n)
(Declarer tdva De_type "nombre")
(Affecter_a tdv 0)
(Tant_que (=/ n 1)
  Faire
    (Affecter_a tdv (+ tdv 1))
    (Si (= (% n 2) 0)
 Alors
      (Affecter_a n (/ n 2))
 Sinon
      (Affecter_a n (* n 3))
      (Affecter_a n (+ n 1))
)
    (Afficher n)
    (Si (> n altmax)
 Alors
      (Affecter_a altmax n)
)
)
(Afficher "Le temps de vol est de :")
(Afficher tdv)
(Afficher "Le temps de vol en altitude est de :")
(Afficher tdva)
(Afficher "L'altitude maximum est de :")
(Afficher altmax)