Procedure VediVett(V: Vettore; L: Integer);
Var
 i: Integer;
Begin
 For i:=1 to L do
   Writeln(i:5, ' = ', V[i]:1:2);
End;