метод итераций

uses Crt;
var
E,x1,x2,F1,F2,x11,x21:real;
k:integer;
label M,M1;
 
begin
clrscr;
write('Vveditе tochnоst E= ');
readln(E);
k:=0;
x1:=0;
x2:=0;
 
M1:
begin
     x11:=-5*sin(x2);
     x21:=exp(cos(x1));
     F1:=x11+5*sin(x21);
     F2:=x21-exp(cos(x11));
      if(abs(F1)<=E) and (abs(F2)<=E) then goto M;
       x1:=x11;
       x2:=x21;
     k:=k+1;
     goto M1;
end;
M:
Begin
  writeln('F1= ',F1);
  writeln('F2= ',F2);
  writeln('k= ',k);
  readln;
end;
  end.

(*reshenie nelin-nogo uravnenia metodom iteracii*)
PROGRAM metiteracii;
CONST E=0.001;
VAR x1,x0,f:real;
BEGIN
REPEAT
f:=x0*x0*x0-0.2*x0*x0+0.3*x0-1.2;
x1:=x0-f/11.5;
f:=x0;
x0:=x1;
UNTIL abs(F-x1)<E;
WRITELN ('x=',x1:8:4);
f:=x0*x0*x0-0.2*x0*x0+0.3*x0-1.2;
WRITELN ('proverka: ',f:8:4);
readln(f);
END.

{$N+}
Program metod_iteracie;
uses CRT;
 
const
      max_iter=2; {максимальное количество итераций}
      a=-2;
      b=-1;
      a1=2.8;
      b1=4 ;
 
Var
 i:integer;
 x1,x01,eps,eps1,x,x0:single;
 
 
Function Fun(x:single):single;
begin
 Fun:=2*x*x*x+3*x*x+4*x+5;
end;
Function Fun1(x1:single):single;
begin
 Fun1:=x1+ln(x1)-0.125*exp(x1);
end;
 
begin 
 clrscr;
 Writeln('Первое уравнение 2*x*x*x+3*x*x+4*x+5) ');
 Writeln('Второе уравнение x+ln(x)-0.125*exp(x)');
 Writeln;
 Writeln('Введите точность вычислений eps для перовго уравнения=');
 readln(eps);
 Writeln('Введите точность вычислений eps для второго уравнения=');
 readln(eps1);
 repeat
   Write('Введите приближённое значение корня первого уравнения x= ');
   readln (x);
 until (x>a) and (x<=b);
 repeat
   Write('Введите приближённое значение корня первого уравнения  x1= ');
   readln(x1);
 until (x1>a1)    and (x1<b1);
 begin {сам метод}
  i:=0;
  repeat
    x0:=x;
    x:=x0+Fun(x0);
    inc(i);
    Writeln('---Итерация',i:3,'   x=',x:6:4);
    Writeln;
    Writeln('F(x)=',Fun(x):6:4);
    Writeln('Точность=',abs(x-x0):6:4);
  until (abs(x-x0)<=eps) or (i>max_iter);
 
  if(abs(x-x0)<=eps) then
    Writeln('Ответ: X=',x:6:4)
  else
    Writeln('Ответ не найден!За,',max_iter:0,'шагов итерация не сошлась);
 end;
 
  Writeln;
  writeln;
  writeln;
 begin
  i:=0;
  repeat
    x01:=x1;
    x1:=x01+Fun1(x01);
    inc(i);
    Writeln('---Итерация ',i:3,'   x1=',x1:6:4);
    Writeln;
    Writeln('F(x1)=',Fun(x1):6:4);
    Writeln(' Точность=',abs(x1-x01):6:4);
  until (abs(x1-x01)<=eps1) or (i>max_iter);
 
 if (abs(x1-x01)<=eps1) then
   Writeln('ЋвўҐв: X=',x1:6:4)
 else
   Writeln('Ответ не найден!За,',max_iter:0,'шагов итерация не сошлась');
end;
end.