Нахождение корней уравнения

var x,n,eps,a:real;
begin
x:=0.1;
eps:=0.000000000001;
repeat
n:=x;
x:=(ln(x))-(0.5/(sqrt(x)));
until abs(n-x)<=eps;
a:=0.5/sqrt(x);
writeln('a(x)=',a:1:11);
writeln('x=',x:1:11);
readln;
end.

uses crt;
function F(x:real):real;
begin
F:=ln(x)-0.5/(x*x);
end;
 
var a,b,c,x,e:real;
begin
clrscr;
a:=0.1;
b:=1.5;
e:=0.0000001;
writeln('      Решение уравнения ln(x)-0.5/x^2=0');
writeln('Графически найден один корень на интервале [',a:0:1,';',b:0:1,']');
repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
until abs(b-a)<e;
x:=(a+b)/2;
writeln('Результат уточнения с точностью 0.0000001 x=',x:0:6);
readln
end.

uses crt;
function F(x:real):real;
begin
F:=ln(x)-0.5/(x*x);{функция}
end;
function F1(x:real):real;
begin
F1:=(x*x+1)/(x*x*x);{первая производная}
end;
var x,eps,b:real;
begin
clrscr;
{простой метод Ньютона}
repeat
write('Vvedite nachalnoe priblizenie [0.1;1.5] x=');
readln(x);
until(x>0.1)and(x<1.5);
eps:=0.00000001;
repeat
b:=x;
x:=b-F(b)/F1(b);
until abs(x-b)<eps;
write('X=',x:0:6);
readln
end.