Saisit une chaîne non vide dont la longueur est comprise entre 1 et 20.
Procédure saisie_ch (@ ch : chaine) Début Répéter Écrire ("Tapez votre chaîne") Lire(ch) Jusqu'à 1 ≤ long(ch) ≤ 20 Fin