procedure vsum(var v1,v2,v3: vector);
var
  n: integer;
begin { vsum }
  for n:=0 to vdim do ssum(v1[n],v2[n],v3[n]);
end { vsum };