Générer une chaine de caractères numériques aléatoires et distincts (n < 10)
Procédure générer (@n : entier, @ch : chaine) Début Répéter Lire(n) Jusqu'à (0<n<10) ... Répéter c ← convch(aléa(0,9)) Jusqu'à pos(c,ch) = -1 ch ← ch + c ... Fin