необходимо решить задачку на программе паскаль способ симпосон

Поставьте баллов 50-100 хотя бы - смотришь, умельцы и найдутся=))

Var
  x, a, b, h, s: real;
  n: integer;

function Y(t: real): real;
begin
  Y := System.Math.log(1 + t)/t;
end;

begin
  write('Отрезок интегрирования [a,b] = ');
  read(a, b);
  write('На сколько долей нужно поделить отрезок? n = ');
  read(n);
  h := (b - a) / n;
  s := 0;x := a + h;
  while x lt; b do
  begin
    s := s + 4 * Y(x);
    x := x + h;
    s := s + 2 * Y(x);
    x := x + h;
  end;
  s := h / 3 * (s + Y(a) - Y(b));
  writeln('Интеграл = ', s);
end.

Пример
Отрезок интегрирования [a,b] = 1 2
На сколько долей необходимо поделить отрезок? n = 100
Интеграл = 0.614279333466083