Cette procédure remplit un tableau avec des entiers positifs uniquement (>0).
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'à (t[i]>0) Fin Pour Fin