[Лунтик-Некрофил]

В исходном варианте, как я понял, возвращает результат подинтегрального выражения.

Код:

function f(x:real):real;
begin
f := 1+SIN(X);
end;

Я заменял уже просчитанным значением, как я думал. Если честно, немного запутался.