Вычислить значение полинома (Паскаль)

[Zhanna5006]

Помогите с решением задачки, пожалуйста:
Полином.doc

[IT-man]

Сделаю за $ !Стучи в аську!

[Zhanna5006]

Денег нету=(

[ОДИНОЧЕСТВО В СЕТИ]

var
  a:array of real;
  m:integer;
  i:integer;
  Q,x,hk:real;
 procedure H(var x1:real; kf:integer;var res:real);
 var
 y:integer;
 r1,r2:real;
 begin
 if kf=0 then begin  res:=1;exit;end;
 if kf=1 then begin res:=x1;exit;end;
 res:=1;
 for y:=2 to kf do begin
 h(x1,kf-1,r1);
 r1:=x1*r1;
 h(x1,kf-2,r2);
 r2:=(kf-1)*r2;
 res:=res*r1*r2;
 end;
 end;
begin
  writeln('input m');
  readln(m);
  writeln('input x');
  readln(x);
  setlength(a,m);
  for i:=0 to m do begin
  writeln('input a[',i,']');
    readln(a[i]);end;
  q:=0;
  for i:=0 to m do begin
  h(x,i,hk);
  q:=q+a[i]*hk;
  end;
  writeln;
  Writeln('q(',x:6:2,')=',q:6:2);
  Writeln('press any key to exit');
  readln;
  finalize(a);
end.

[Zhanna5006]

Спасибки))