Написать программу для вычисления значения интеграла

const a=1;
      b=2;
      e=0.00001;
function f(x:real):real;
begin
f:=power(ln(x)/x,3);
end;
var x,s:real;
    n,i:integer;
begin
x:=a+e/2;
n:=round((b-a)/e);
s:=0;
for i:=1 to n do
 begin
  s:=s+f(x);
  x:=x+e;
 end;
s:=s*e;
write('Интеграл = ',s:0:5);
end.

const a = 1;
      b = 2;
      e = 1e-5;
 
function f(x: real): real;
begin
  x := ln(x) / x;
  f := x * x * x;
end;
 
function integ(k: longint): real;
var h, x, sum: real;
    i: integer;
begin
  sum := 0;
  h := (b - a) / k;
  x := a + h / 2;
  for i := 1 to k do
    begin
      sum := sum + f(x);
      x := x + h
    end;
  integ := sum * h
end;
 
var s, s2: real;
    n: longint;
begin
  n := 1;
  s := integ(n);
  repeat
    s2 := s;
    n := n * 2;
    s := integ(n)
  until abs(s2 - s) < e;
  writeln('Приближённое значение = ', s:0:abs(trunc(ln(e) / ln(10))));
  writeln('             Точность = ', e:0:abs(trunc(ln(e) / ln(10))));
  writeln(' Количество разбиений = ', n);
  writeln('      Точное значение = ', (9 - 4 * sqr(ln(2)) * ln(2) - 6 * sqr(ln(2)) - ln(64)) / 32:0:17)
end.

  writeln('Приближённое значение = ', s:0:5);
  writeln('             Точность = ', e:0:5);