[UPDATE] #1-3-5 Str 238

program q;
uses crt;
const n=6;
      eps=0.003;
label gobc, e_exit;
var
  x,delta:real;
  count,c1:integer;
//  a,b,c:real;
function f(x:real):real;
begin
  f:=sqr(x)-5*cos(x-1);
end;
begin
  clrscr;
  x:=-1;delta:=2*eps;count:=0;c1:=0;
  gobc:
  while f(x)*f(x+delta)>0 do begin
    x:=x+delta;
    inc(count);
  end;
  writeln('x= ',(x+eps):6:3);
  writeln('Count= ',count);
  if x<>0 then begin
    c1:=c1+1;
    if c1=2 then goto e_exit;
    x:=x+delta;
    goto gobc;
    end;
  e_exit:
end.