Помогите в написании программы в Pascal

[devoir]

Найти корень уравнения методом Ньютона и Итерационным методом
с точностью до 0,001
Дана функция x^3-x-1=0, на интервале [1;2]

Заранее Спасибо!

[Mad_Cat]

зарплата исполнителю будет или на энтузиазизме писать?

[devoir]

Я вот написал, но не уверен что правильно
1) Метод Ньютона
Program Newt;
const
eps=0.001;
var
a,x,y,x1,f,proiz:real;
begin
x:=1;
repeat
x1:=x;
f:=x*x*x-x-1;
proiz:=3*x*x-1;
y:=f/proiz;
x:=x-y ;
until abs(x-x1)<=eps;
writeln('x=',x:5:3);
readln;
end.

2) Итерации
Program Int;
const eps=0.0001;
Var
a,x,y,x1,f,proiz:real;
n:integer;
Begin
x:=1;
n:=0;
repeat
x1:=x;
f:=x*x*x-x-1;
proiz:=3*x*x-1;
y:=f/proiz;
x:=x-y;
n:=n+1;
until x-x1<=eps;
writeln('Результаты вычислений: ');
writeln(' Корень уравнения =',x:5:3);
writeln(' Количество итераций =',n);
end.

Просто метод Ньютона выдаёт x=1.325, а Итерации 1.348