Программный код решения уравнения x^2-cosx=0

Function f (x: real): real; begin f: =x*x — cos (x); end; procedure solve (start_x, stop_x, e: real); var step_x, last_f, cur_f, x: real; begin step_x: =(stop_x — start_x) / 100; x: =start_x; last_f: =f (x); repeat x: =x+step_x; cur_f: =f (x); if cur_f*last_f < 0 then begin if step_x < e then writeln (x: 20:10, ', f (x): 20:10) else solve (x — step_x, x, e); end; last_f: =cur_f; until x > stop_x; end; begin solve (-1000, 1000, 0,0000001); writeln ('END'); end.