Program wanted;
Uses crt;
Var a,x,b: real;
Function f(var x:real):real;
Var A: Array[0..500] Of integer;
i,n: byte;kq:real;
Begin
kq:=0;
write('Nhap bac da thuc:');
readln(n);
For i:=0 to n Do
Begin
write('Nhap he so A(',i,'):');
readln(A[i]);
End;
For i:=n Downto 0 Do
kq:= kq+a[i]*exp(i*ln(x));
f(x):=kq;
End;
Begin
clrscr;
a:=-10;b:=10;
while (f(a)<>0) or (f(b)<>0) do
begin
if f(a)*f((a+b)/2)<0 b:="(a+b)/2;</p" then="">if f(b)*f((a+b)/2)<0 a:="(a+b)/2;</p" then=""> end;
writeln('Nghiem phuong trinh la:',a);
readln
End.