procedure soma(var a,b,c: tipo_vetor);
var
   i : integer;
begin
   for i:=1 to tam_vet do
      c[i] := a[i] + b[i];
end;