Программа

Program Pilshikov_5_35 (input,output);
{ С точностью Eps найти корень ур-я
  Pi*x^3-E*x^2+(2*E+1)*x+Pi^2=0
  (метод половинного деления) }
Uses Crt;
Const Eps=0;
      dx=100;
Type sign=(minus,zero,plus);
Var xL,x,xR,E:real;
Function Signature(x:real):sign;
  var Buf:real;
  Begin
    Buf:=Pi*x*Sqr(x)-E*Sqr(x)+(2*E+1)*x+Sqr(Pi);
    if Buf>0 then Signature:=plus
             else if Buf=0 then Signature:=zero
                           else Signature:=minus
  End;
BEGIN
  E:=exp(1);
  xL:=-dx;
  xR:=dx;
  while xR-xL>Eps do
    Begin
      x:=xL+(xR-xL)/2;
      if (x=xL) or (x=xR) then begin xL:=x; xR:=x end
                          else if Signature(x)=Signature(xR) then xR:=x
                                                             else xL:=x
    End;
  Writeln('x=',xL+(xR-xL)/2)
END.