Схема Горнера

uses crt;
type mas=array[0..100] of real;
function Gorner(a:mas;x:real;n:byte):real;
var f,s:real;
    i:byte;
begin
f:=1;
s:=a[n];
for i:=1 to n do
 begin
  f:=f*x;
  s:=s+a[n-i]*f;
 end;
Gorner:=s;
end;
var i,n:byte;
    f,s,x:real;
    a:mas;
begin
clrscr;
write('Введите степень многочлена ' );readln(n);
write('Введите x=');readln(x);
writeln('Введите ',n+1,' коэфф. многочлена степени ',n);
for i:=0 to n do
readln(a[i]);
write('S=',Gorner(a,x,n):0:2);

uses crt;
const nmax=30;
type mas=array[1..nmax] of real;
function Pow(os:real;pk:byte):real;
var i:byte;
    res:real;
begin
res:=1;
for i:=1 to pk do
res:=res*os;
Pow:=res;
end;
function Summ(x:real;m:mas;n:byte):real;
var i:byte;
    sm:real;
begin
sm:=0;
for i:=n downto 1 do
sm:=sm+Pow(x,i-1)*m[i];
Summ:=sm;
end;
var a:mas;
    x,sm:real;
    n,i:integer;
begin
clrscr;
repeat
write('Vvedite poryadok polinoma n=');
readln(n);
until n in [1..nmax];
writeln('Vvedite koefficienty polynoma:');
for i:=1 to n+1 do
 begin
   write('a[',i,']=');
   readln(a[i]);
 end;
clrscr;
write('x=');readln(x);
writeln('Summa polynoma:');
write(a[1]:0:2,'x^',n);
for i:=2 to n do
if a[i]<0 then write(a[i]:0:2,'x^',n-i+1)
else write('+',a[i]:0:2,'x^',n-i+1);
if a[n+1]<0 then write(a[n+1]:0:2,'x^0=')
else write('+',a[n+1]:0:2,'x^0=');
write(Summ(x,a,n+1):0:2);
readln
end.