const a=2;
      b=3;
function f(x:real):real;
begin
f:=1/x/ln(x);      //свой интеграл
end;
function p(x:real):real;
begin
p:=ln(ln(x));      //первообразная от своего интеграла
end;
procedure integral(n:integer;var s:real);   //центральный прямоугольник
var h,x:real;
    i:integer;
begin
h:=(b-a)/n;
x:=a+h/2;
s:=0.0;
for i:=1 to n do
 begin
  s:=s+f(x);
  x:=x+h;
 end;
s:=s*h;
end;
var s:real;
    n:integer;
begin
write('Число разбиений n=');{чем больше n, тем выше точнсть}
readln(n);
integral(n,s);
writeln('Интеграл по методу средних прямоугольников= ',s:0:4);
write('Интеграл через первообразную=',p(b)-p(a):0:4)
end.