Работа с многочленами в Паскале

[Rusl92]

Здравствуйте, не могли бы вы мне помочь.
условие - не использовать массивы
Нам задали :
ввести многочлен P(x)=p0+p1*x+p2*x^2+p3*x^3.... до pn*x^n
(то есть вводим получается n+1 чисел)
затем найти и вывести P(x^3)*(a+b*x+c*x^2)
объясните пожалуйста как решать ....
заранее спасибо!

[SuperVisor]

Странное описание задачи...
Чему равен каждый последующий член последовательности?
P[n]=P[n-1]*x^(n-1) ?

Если да, предлагаю вам такой вариант:

var
  Sum, p, x, n, a, b, c, i: integer;
begin
  Readln(P);
  Readln(X);
  Readln(N);
  Readln(A);
  Readln(B);
  Readln(C);

  Sum:=P;

  for i:=2 to n do
  begin
    P:=P*trunc(power(x,i+1)); //Потому что нужен P(x^3)
    Sum:=Sum+P;
  end;

  Sum:=Sum*(a+b*x+c*x*x);
  Writeln(Sum);
end;

P.S. Писал здесь, на работоспособность не проверял...

[SuperVisor]

После выяснения условий задачи посредством ICQ выяснилось:
Нужно найти значение выражения P(x^3)*(a+bx+cx^2).
P(x)=p0+p1*x+p2*x^2+p3*x^3.... N-ного количества элементов.
p0, p1, p2, p3, ... pN вводятся пользователем.

var
  Sum, p, x, n, a, b, c, i: integer;
begin
  writeln('Введите число элементов массива');
  Readln(N);
  writeln('Введите значение X');
  Readln(X);
  writeln('Введите значение A');
  Readln(A);
  writeln('Введите значение B');
  Readln(B);
  writeln('Введите значение C');
  Readln(C);

  Sum:=0;
  P:=0;

  for i:=1 to n do
  begin
    writeln('Введите значение P',i-1);
    Readln(P);
    Sum:=Sum+p*trunc(power(x*x*x,i-1));
  end;

  Sum:=Sum*(a+b*x+c*x*x);
  Writeln(Sum);
end;