Saisir une chaîne alphabétique non vide
Procédure Saisir(@ch :chaine) Début Répéter Lire(ch) Jusqu'à (ch≠"") et Vérif(ch) Fin