Вычисление многочлена через рекуррентные формулы

[qqqerrard]

С помощью рекуррентных формул вычислить значения многочлена степеней от 0 до N при заданном аргументе X.

[newerow1989]

function Un(n:integer;x:real):real;
begin
   If n=0 then
      Result:=1 else
   If n=1 then
      Result:=-x+1 else
      Result:=1/n*((2*(n-1)+1-x)*Un(n-1,x)-n*Un(n-2,x));
end;

const n=10;
var x:real;
    i:integer;
begin
   Write('x = '); Readln(x);
   For i:=0 to n do
      Writeln(Un(i,x):5:8);
   Readln;
end.