[angvelem]

И что возвращает функция f:

Код:

function f(x:real):real;
begin
  f := 2.46573;
end
...
S := S + f(a + h * i);
...
integ := h * ( ( f(a) + f(b) ) / 2 + S);
...