procedure multiplos_dois(var v: tipo_vetor);
var
   i : integer;
begin
   for i:=1 to tam_vet do
      v[i] := 2 * i;
end;