Cette procédure permet de remplir un tableau avec des valeurs saisies par l'utilisateur.
Procédure remplir (@v:tab;m:entier) Début Pour i de 0 à n-1 faire Ecrire ("v[",i,"] = "); Lire (v[i]) Fin pour fin