(Afficher “Donner un entier :”) (Initialiser nb 0) (Affecter_a nb (Nombre (Demander))) Si (=0 (Reste nb 2))
Alors (Afficher "C'est un nombre pair") Sinon (Afficher "C'est impair")