procedure vlho(imin: integer; var v: vector; var s,sho: scalar);
var
  i: integer;
  sf,s1,s2,s3: scalar;
begin { vlho }
  sf:=sone;
  szero(s3);
  for i:=imin to vdim do begin
    sprod(sf,v[i],s2);
    sunion(s3,s2,s1);
    s3:=s1;
    sprod(sf,s,s1);
    sf:=s1;
    ismult(i+1,sf);
  end;
  sabs0(s3,sho);
end { vlho };

