Saisit un caractère majuscule avec contrôle d'appartenance à ["A".."Z"].
Procédure saisie_majus (@ c : caractère) Début Répéter Écrire ("Donner un caractère majuscule ") Lire(c) Jusqu'à c ∈ ["A".."Z"] Fin