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