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

Добрый вечер, господа!=)
Очень давно не писал на паскале/дельфине, а тут попросили знакомые помочь с интегрированием. Сам никогда мат. частью задач не занимался, а тут такой нежданчик=(
Сам алгоритм нашел, но работает он на мой взгляд не очень верно.

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var A, B, S, h, integ:REAL;

n,i:integer;


function f(x:real):real;
begin
f := 2.46573;
end;

begin
a:=0;
b:=100;
n:=0.1;

h := (b - a) / n;


for i := 1 to n-1 do
begin
S := S + f(a + h * i);
end;

integ := h * ( ( f(a) + f(b) ) / 2 + S);

writeln(integ:0:4);

Readln;

end.

В цикле сумма не меняется, шаг интегрирования по заданию 0.1, а здесь целочисленный вообще. Возвращаемое значение от ф-ии f() взял для наглядности, возвращаемое значение интеграла по заданию для него должно быть 231.63661.
Задание лежит вот тут, тема 4, задание 2, вариант 2.
Методичка тут, но в ней только сама формула.

Ребят, извините пожалуйста, что вот так вот все криво, просто сейчас запар на работе и по другому не получается=(
Заранее спасибо.