Exemple d'algorithme du procédure remplir
0) Def proc remplir (var t : tab ; var n : entier)
1) répéter
Écrire (‘‘donner la taille du tableau’’)
lire(n)
Jusqu’à (n dans [5..50])

2) Pour i de 1 à n faire
Écrire (‘‘donner l’élément’’, i)
lire(t[i])
Fin pour
3) fin remplir