Variante de la précédente, utilisant l'appartenance à l'intervalle.
Procédure Saisir (@ X : entier) DÉBUT Répéter Écrire("Donner 1 entier pair et de 4 chiffres: ") Lire (x) Jusqu'à x MOD 2 = 0 et x[1000..9999] FIN