Cette procédure remplit un tableau de façon à ce que chaque élément soit supérieur au précédent.
Procédure remplir (@t:tab; n:entier) Début Ecrire ("T[",0,"] = "); Lire (t[0]) Pour i de 1 à n-1 faire Répéter Ecrire ("t[",i,"] = "); Lire (t[i]) Jusqu'à (t[i]>t[i-1]) Fin Pour Fin