function Polynom_horner

function Polynom_horner(n:integer;x:real;coef:tab):real;
var i:integer;
pol:real;
begin
pol:=0;
for i:=n downto 0 do pol:= pol*x + coef[i];
polynom_horner:= pol;
end;
(*****************P.P********************)
begin
write('Polynôme de degré n = ');readln(n);
write('X = ');readln(x);
writeln('Saisir les coefficients du polynome');
for i:=0 to n do
begin
write('a',i,' : ');
readln(coef[i]);
end;
writeln('P(x) = ', polynom_horner(n,x,coef):2:3);
end.