паскаль,методы вычисления интегралов

[Dzha]

Определить корни уравнения аналитически и определить один из них методом простых итераций с точностью 0,0001. уравнение x^2-ln(x+1)=0.нужен текст программы в паскале и ответ. и 2 задание-Вычислить значение интеграла от функции F(х) в пределах [a,b] c точночтью 0,0001 . методом трапеций.вывести на печать значение интеграла и число итераций. уравнение e^x*sin4x.

[Dzha]

ввожу в 1 задании:
var x,e,x1:real;
begin
e:=0.0001;
writeln('enter x');
readln(x);
repeat
x1:=x;
x:=sqrt(ln(x+1));
until abs(x1-x)<e;
writeln(x);
readln;
end.
ответ выводит оч большой а должно быть примерно 0.8. что не так не пойму