составить программу для решения в паскале методом итераций

[Evgeniya666777]

помогите составить программу для решения в паскале методом итераций уравнения (e^x)-(e^-x)-2=0. Область корня 0;1

[Mad_Cat]

const max=100;
var
  i :integer;
  x,x0,eps,M :real;
function F(x:real):real;
    begin
    F:=exp(x)-exp(-x)-2;
  end;
begin
  clrscr;
  x:=0;
  write('Введите точность вычислений eps='); readln(eps);
  i:=0;
  repeat
    M:=-(F(x+eps)-F(x-eps))/(2*eps);
    x0:=x;
    x:=x0+F(x0)/M;
    inc(i);
  until (abs(x-x0)<=eps)or(i>max);

  if (abs(x-x0)<=eps) then writeln('Ответ: X=',x)
  else writeln('Ответ не найден!')
end.