Cette procédure affiche uniquement les éléments pairs d'un tableau.
Procédure affiche(t:tab; n:entier) Début Pour i de 0 à n-1 faire si t[i] mod 2 = 0 alors Ecrire ("T[",i,"] = ",t[i]); finsi Fin pour Fin