Интеграл, Вычислить определённый интеграл методами Опции

[Мюллер С.Х.]

Вычислить определённый интеграл методами средних прямоугольников и трапеции.
Обязательно функция должна вводиться не в исходнике, а в проге(exe)нике.

Пожалуста выручите.

[ClaneOffline]

Метод прямоугольников для приближенного вычисления интеграла функции f(x)=5*x*x-x+2

Код

program m2;
var
a,b:real; {границы отрезка}
dx:real; {приращение аргумента}
s:real; {приближенное значение интеграла}
n:integer; {кол-во интервалов}
x:real; {аргумент}
y:real; {значение функции в начале интервала}
i:integer;
begin
writeln('Нижняя граница отрезка');
readln(a);
writeln('Верхняя граница отрезка');
readln(B);
writeln('Приращение аргумента');
readln(dx);
n:=Round((b-a)/dx);
x:=a;
s:=0;
for i:=1 to n do
begin
y:=5*x*x-x+2;
s:=s+y*dx;
x:=x+dx;
end;
writeln('Значение интеграла :',s:9:3);
readln;
end.