Вычислить методом Ньютона значение корня уравнения (в прикрепленных файлах под номером 2) на интервале [0;1] — Pascal(Паскаль)

uses crt;
function F(x:real):real;
begin
F:=exp(x)-exp(-x)-2;//функция
end;
function F1(x:real):real;
begin
F1:=exp(x)-exp(-x);//первая производная
end;
 
var x1,x2,eps,b:real;
begin
clrscr;
repeat
write('Введите начальное приближение [0;1] a=');
readln(x1);
until(x1>=0)and(x1<=1);
eps:=0.001;
x2:=x1;
repeat
b:=x2;
x2:=b-F(b)/F1(b);
until abs(x2-b)<eps;
write('X=',x2:0:3);
readln
end.