Нужно в паскале посчитать объем вращения гиперболы относительно оси х на промежутке от х1 до х2. y=1/х.

{ объем фигуры вращения y=f(x) = 1/x  x0 = 1,  x1 = 2 }
var i: integer;
    v,h,x0,f: real;
begin
  v:=0; x0:=1;  h:=0.001;
  for i:=1 to 1000 do
  begin
    f:=(1/sqr(x0+(i-1)*h)+1/sqr(x0+i*h))/2;
    v:=v+f*h;
  end;
  v:=2*pi*v;
  writeln('объем = ',v);
  writeln('точное значение V = ',pi);
end.