program horda;
uses crt;
 function f(x:real):real;
 begin
   f:=sin(x)-0.2*x;
  end;
var
 a,b,c,e,x:real;
 n:integer;

begin
   clrscr;
 writeln('Input border [a,b]');
 write('a=');
 read(a);
 write('b=');
 read(b);
 writeln('Input E');
 write('E=');
 read(e);
   n:=0;
    repeat
     c:=a-((b-a)/(f(b)-f(a)))*f(a);
    if f(a)*f(c)<0 then b:=c
     else a:=c;
     inc(n);
    x:=(a+b)/2;
writeln('',n,'.',' x= ', x:5:5);
     until  (b-a)<=e;
   x:=(a+b)/2;
   writeln ('Root x= ',x:10:10);
   writeln('Number of iteration ',n);
   readkey;
end.