Error 207

program PrIter;
var a,b,x0,q,eps:real;
function F(x:real):real;
begin
   F:=cos(4*x)-x+5;
end;

function g(x:real):real;
begin
g:=(arctan(sqrt(1-sqr(x))/(x)*(x-5))/4);
end;
procedure pr_it;
var x,x1,n:real;
begin
n:=0; x1:=x0;
repeat
x:=x1;
n:=n+1;
x1:=g(x);
writeln('n=',n:3:0, 'x=',x:10:4,'x1=',x1:10:4)
until abs(x1-x)<eps*(1-q)/q;
write('eps=',eps ,10:4,' koli4estvo iteratsii=',n:3:0);
writeln('koren=', x1:10:4, 'f',(x1));
end;
begin{PrIter1}
a:=4.5; b:=5.5; q:=-0.25; eps:=1e-4;
writeln('Metod prostux iteratsii');
x0:=a;
pr_it;
readln;
end.