procedure affichage ( v : Vecteur ; n : integer);
var
i: integer; { i est une variable locale, Cf. 8.3 }
begin
for i:=1 to n do write(v[i]);
writeln;
end;
Cette procédure peut être utilisée pour une variable de type :
Vecteur = array[1..Nmax] of real ; Nmax étant une constante définie au préalable.