Даны коэффициенты многочленов Р(х) и Q(x) 15-й степени и дано вещественное число a. Вычислить величину P(a+Q(a)P(a+1)) — Pascal(Паскаль)

program mnogochlen;
uses crt;
var px,qx:array[0..15]of integer;
    i:integer;
    s:double;
 
function p(a:double):double;
var s:double;
begin
 sum:=0;
 for i:=15 downto 0 do sum:=sum+px[i]*exp(i*(ln a));
 p:=sum;
end;
 
function q(a:double):double;
var s:double;
begin
 sum:=0;
 for i:=15 downto 0 do sum:=sum+qx[i]*exp(i*(ln a));
 q:=sum;
end;
 
begin
 clrscr;
 for i:=15 downto 0 do
 begin
  write('Vvedite koef.',i,' stepeni P(X): ');
  readln(px[i]));
 end;
 
 for i:=15 downto 0 do
 begin
  write('Vvedite koef.',i,' stepeni Q(X): ');
  readln(qx[i]));
 end;
 
 s:=p(a+q(a)*p(a+1));
 writeln('S=',s:0:4);
 readln;
end.