Уравнение с экспонентой в паскале

[serafima_92]

Помогите пожалуйста решить в Паскале уравнение e^x+e^(-x)-2=0 на отрезке [0,1] с точностью 1Е-4. Заранее благодарна

[havok]

var
  h:Real;
  xn:Real;
  y:Real;
begin
  h:=0.0001;
  xn:=0;
  repeat
    y:=Exp(xn)+exp(-xn)-2;
    xn:=xn+h;
  until  (y=0) or (xn=1);
  if xn=1 then writeln('korney net')
     else writeln('koren',xn:6:4);
  readln;
end.

[serafima_92]

Большое спасибо!!!!!