Вычислить полином по схеме Горнера - Pascal ABC

[pasterr]

Вычислить полином Pn(xf) по схеме Горнера при X={0.5, 1.5, 3.2, 4.1, 6.8},
A={-0.5, 0.8, 1.1, 2.7, 3.5, 1.9, 5.1}, j=1+5, n=6,
Pn(x)=(…(A(1)X+A(2))X+A(3))X+…+A(n) )X+A(n+1)).

[newerow1989]

const n=6;
      a:array[1..n+1] of real=(-0.5,0.8,1.1,2.7,3.5,1.9,5.1);

function Pn(x:real):real;
var i:integer;
begin
   Result:=a[1];
   For i:=2 to n do
      Result:=Result*x+a[i];
   Result:=Result+a[n+1];
end;

var x:real;
begin
   x:=0.5;
   Writeln(x:1:1,' ',Pn(x):8:5);
   x:=1.5;
   Writeln(x:1:1,' ',Pn(x):8:5);
   x:=3.2;
   Writeln(x:1:1,' ',Pn(x):8:5);
   x:=4.1;
   Writeln(x:1:1,' ',Pn(x):8:5);
   x:=6.8;
   Writeln(x:1:1,' ',Pn(x):8:5);
   Readln;
end.

[pasterr]

Спасибо

[newerow1989]