Итерационные циклы: найти корень уравнения методом секущих по близости соседних приближений

Var a,b,E,c,x1,x: real;
n:integer;
Function f(x:real) :real;
Begin
f:=2*sin(2*x)-cos(x);
 end;
Function f1(x:real):real;
Begin 
F1:=2*x*cos(x)+3*sin(x);
end;
Function f2(x:real):real;
Begin
F2:=-2*x*sin(x)+5*cos(x);
End;
Begin
Read(a,b,e);
if f(b)*f2(b)>0
Then c:=b
Else c:=a;
 
If f(a)*f2(a)>0
Then x:=b
Else x:=a;
 While (abs(x1-x)<E) do 
Begin
X:=x-f(x)*(x-c)/(f(x)-f(c));
End;
Writeln (x)
End.

Var a,b,E,c,x1,x: real; n:integer; 
Function f(x:real) :real; 
Begin f:=2*sin(2*x)-cos(x); *end; 
Function f1(x:real):real; 
Begin 
F1:=2*x*cos(x)+3*sin(x); 
end;
 Function f2(x:real):real; 
Begin F2:=-2*x*sin(x)+5*cos(x); 
End; 
Begin 
Read(a,b,e); 
if f(b)*f2(b)>0 
Then c:=b 
Else c:=a; *
 If f(a)*f2(a)>0 
Then x:=b
 Else x:=a; 
*While (abs(x1-x)<E) do
 Begin 
X:=x-f(x)*(x-c)/(f(x)-f(c)); 
End; 
Writeln (x) 
End.