Cette procédure remplit un tableau avec des valeurs distinctes, en vérifiant que chaque nouvelle valeur n'est pas déjà présente.
Procédure remplir (@t:tab; n:entier) Début Pour i de 0 à n-1 faire Répéter Ecrire ("t[",i,"] = "); Lire (t[i]) Jusqu'à (recherche(t,i,t[i])=faux) Fin Pour Fin