Вычислить по схеме Горнера значение многочлена

[Needfor5]

17 вариант помогите сделать

[Вадим Мошев]

Что не получается? Чем помочь?

[newerow1989]

function step(x:real;n:integer):real;
var i:integer;
begin
   Result:=1;
   For i:=1 to n do
      Result:=Result*x;
end;

function p(x:real):real;
begin
   Result:=step(x,5)+3*step(x,4)+2*step(x,3)+3*step(x,2)+2*x+4;
end;

var x:real;
begin
   x:=0.57;
   Writeln(p(x):5:5);
   Readln;
end.

Сойдет?