Найдите корни уравнения е^x – 10х = 0(pascal)

[Pinap]

Найдите корни уравнения е^x – 10х = 0 с точностью E(эпсилон) методом простой итерации.

[gaw4]

ABC

  Program p1;
Uses crt;
var  a,b,eps:real;
k:integer;

Function F1(var x:real):real;
begin
   F1 := exp(x)/10;
End;

Function Iter(var a,b,eps:real) : real;
var x1, x2:real;
begin
k:=0; x2 := a;
    repeat
    k:=k+1;
        x1 := x2;x2 := F1(x1);
    until Abs(x1 - x2) < eps;
result:= x2;
End;

begin
a:=0;b:=10;eps:=0.000001;
 writeln('x=',Iter (a,b,eps));
 writeln('k=',k);
  readln;
end.

[Pinap]

Благодарю)