uses crt;
var
 i,j,n: longint;
 p, s: double;
 x, xs, xf, xstep: double;
 coeffs: array[0 .. 100] of double;

begin
 clrscr;
 write('Input x start ');readln(xs);
 write('Input x finish '); readln(xf);
 write('Input x step '); readln(xstep);
 write('Input n (stepen) ');readln(n);
 for i := n downto 0 do
   begin
     write('input coeff[', i, '] > ');
     readln(coeffs[i]);
   end;

 writeln('x':10, 's':10);
 writeln;
 x := xs;
 while x <= xf + xstep do
   begin
     s := 0;
     for i := n downto 0 do
       begin
         p := coeffs[i]; j := i;
         while j > 0 do
           begin
             p := p * x; dec(j)
           end;
         s := s + p
       end;
     writeln(x:10:5, s:10:5);
     x := x + xstep;
   end;
 readln;
end.

{$N+} {$E+}
Const
MaxStep=100;
Type
TELEM=Double;
var
koeff:array[0..MaxStep] of TELEM;
x,Xs,Xf,xstep:TElem;
N,i:longint;
Result:Telem;
begin
write('Input x start ');readln(xs);
write('Input x finish '); readln(xf);
write('Input x step '); readln(xstep);
write('Input n (stepen) ');readln(N);
For i:=N DownTo 0 do
begin
 write('input coeff[',i,']: '); readln(koeff[i])
end;
x:=xs;
while x<=xf do
begin
 Result:=0;
 For i:=N DownTo 0 do Result:=result+koeff[i]*Exp(i*ln(x));
 writeln(i:10, result:10); x:=x+xstep
end
end.