Str238 #1

program q;
uses crt;
const n=6;
      eps=0.01;
var
  x,delta:real;
  count:integer;
function f(x:real):real;
begin
  f:=sqr(x)-5*cos(x-1);
end;
begin
  clrscr;
  x:=0;
  delta:=2*eps;
  count:=0;
  while f(x)*f(x+delta)>0 do begin
    x:=x+delta;
    inc(count);
  end;
  writeln('x= ',(x+eps):6:3);
  writeln('Count= ',count)
end.