Не знаю что делать дальше))))

[LiptonICE]

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

Program ;
{---}
const n=6;
Type Arr=array[0..n] of integer;
var i:integer;

function f(x:real,b:arr) of real;
var p:real;
begin
p:=b[6];
for i:=5 downto 0 do
p:=x*p+b[i];
f:=p;
end;
begin

[vedro-compota]

точнее сформулируй вопрос 0)))