Saisit un entier pair de 4 chiffres (entre 1000 et 9999).
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 1000 ≤ x ≤ 9999 FIN