Cette procédure remplit un tableau avec des entiers à deux chiffres (entre 10 et 99).
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'à (10<=t[i]<=99) Fin Pour Fin