Где здесь ошибка метод хорд 9.x5+3*sin(x)-3x2-12 program P12; var a,b,c,x:real; i,n:integer; function F(x:real):rea

Где здесь ошибка метод хорд 9.x5+3*sin(x)-3x2-12 program P12; var a,b,c,x:real; i,n:integer; function F(x:real):real; begin f:=sqr(sqr(x))+3*sin(x)-3*x*sqr(x)-12; end; begin a:=0.5; b:=1.5; n:=12; for i:=1 to n do begin x:=x-(f(x))/(f(c)-f(x))*(c-x); c:=a-(f(a))/(f(a))*(b-a); writeln(x:10:8,'',f(x):12:8); if f(c)*f(a)>0 then break else begin c:=a; x:=b;end; end; end.