Паскаль. Как к ней подступиться?

[LiptonICE]

Даны действительные числ а0.....а6. получить для х=1,3,4 значение р(х+1)-р(х) где.
р(у)=а6*у6+а5* у5+.....+а0 где ,
а6(Индекс)
у(в 6 степени)

Сори за такое исполнение нету Ворда с маттайпом((

[Stilet]

for i:=6 downto 0 do begin
 py:=py+a[i]*exp(6*ln(y));
end;

Как-то так, щаз уж не помню точную формулу

[LiptonICE]

не дало прояснения

[evg_m]

function p(y:real): real;
begin
  ry:=1; //здесь будет y в 0...6 степени (y0=1 y1=y0*y ...)
   p:=0; //здесь считаем P(y)
  for j:=0 tp 6 do
  begin
    p:=p+a[j]*ry;
    ry:=ry*y;
  end;
end;

x:=1;
r:=p(x+1)+p(x);
x:=2;
....

[LiptonICE]

А можно полностью.... с процедурой и прочим написать ?

[evg_m]

получить для х=1,3,4 значение р(х+1)-р(х)

x:=1;//получить для х=1
r:=p(x+1)+p(x);//значение р(х+1)-р(х)
x:=3;
....