Паскаль. Функции.

[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
подскажите как доделать её

[p51x]

function f(x:real,b:arr) of real;

Прочтите в учебнике, как объявляются функции.

подскажите как доделать её

readln(x);
writeln(f(x+1, Arr)-f(x, Arr));

Как-то так.

[RUSt88]

обращайтесь, выполню за вознаграждение