Помогите плиз с задачей

[Raptor5]

Помогите плиз с задачей на паскале вот условие:

Даны действительные числа s, t, a0, ..., a12. Получить p (1) - p (t)+ + p^2 (s - t) - p^3 (1), где
p (x) = a12x^12 + a11x^11 + ... + a0.

[puporev]

Напиши условие по человечески, может кто и поможет.

[puporev]

Поскольку при решении этого примера нужно часто возводить в степень и находить суммы по определенным правилам, сделаем соответствующие функции

function Step(a:real;n:integer):real;
var k:real;
begin
  k:=1;
  for i:=1 to n do
  k:=k*a;
  Step:=k;
end;

Находит целую степень n вещественного числа a, умножая его само на себя n раз.

function Sum(a:mass;x:real):real;
var sm:real;
begin
sm:=0;
for i:=1 to 13 do
sm:=sm+a[i]*Step(x,13-i);
Sum:=sm;
end;

Находит сумму ряда, заданного формулой, приведенной в задании.

Далее вводим значения s, t и массива (в цикле через рандом или с клавиатуры).
Поскольку в условии задачи ряд пронумерован от 0 до 12, а массивы в Паскале нумеруются начиная с 1, нужно задать массив a"array[1..13]of real и в дальнейшем учитывать это смещение нумерации.
И, наконец, считаем значение заданного выражения

p:=Sum(a,1)-Sum(a,t)+sqr(Sum(a,(s-t)))-sqr(Sum(a,1))*Sum(a,1);

Выводим результат на экран. Проверить результат правда сложно.

[Raptor5]

большое спс