exit

procedure DIN( c,d,fc:real);
begin
k:=0;
repeat
k:=k+1;
xs:=(c+d)/2;
fs:=f(xs);
if fs=0 then
begin
writeln(f2,'Точное попадание в корень на этапе уточнения корней');
kor:=xs;
fkor:=0;
s:=1;
nk:=nk+1;
Exit;
end;
else if fc*fs>0 then
begin
c:=xs;
fc:=fs;
end;
else
d:=xs;
end;
until kor:=(c+d)/a;
fkor:=f(kor);
s:=1;
nk:=nk+1;
end;

end;//здесь уберите точку с запятой
else if fc*fs>0 then

end;//и здесь тоже
else
d:=xs;

unit podpr;
interface
uses perem;
function f(x:real):real;
procedure DIH( c,d,fc:real);
procedure SHAG;
procedure KOREN_GR;
implementation
function f(x:real):real;
   begin
        f:=(sqr(x)*x)-2*x+4;
        f:=0;
   end;
procedure DIN( c,d,fc:real);
   begin
        k:=0;
             repeat
                   k:=k+1;
                   xs:=(c+d)/2;
                   fs:=f(xs);
                   if fs=0 then
                   begin
                   writeln(f2,'Точное попадание в корень на этапе уточнения корней');
                   kor:=xs;
                   fkor:=0;
                   s:=1;
                   nk:=nk+1;
                   Exit;
                   end
                   else if fc*fs>0 then
                    begin
                   c:=xs;
                   fc:=fs;
                   end
                   else
                   d:=xs;
                   end;
             until kor=(c+d)/2;
             fkor:=f(kor);
             s:=1;
             nk:=nk+1;
             end;
procedure SHAG;
   begin
        a:=0;
                   b:=a+dx;
                  fa:=fb;
                   fs:=f(xs);
                   fb:=f(b);
             end;
procedure KORN_GR;
   begin
      if fa=0 then
      begin
                  kor:=a;
                  else
                  kor:=b;
              end;
writeln(f2,'Точное попадание в корень на этапе отделения корней');
fkor:=0;
s:=1;
nk:=nk+1;
k:=0
              end;
             end.