Cette procédure permet de remplir un tableau sans contrôle de saisie.
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