(Declarer a b c Detype “nombre”) (Affectera a 180) (Affectera b 3) (Affectera c 0) (Tantque (>= a b) Faire (Affectera a(- a b))

Faire
(Affecter_a c(+ c 1))

)

(Afficher c)