Вычислить значение многочлена a0x^n+a1x^n-1+...+an-1x+an и его производной в точке x = 0.5.

Program S9;
 
Function St(Value,Degree:Real):Real;{Возведение Value в степень Degree}
Begin
    St:=Exp(Degree*Ln(Value));
End;
 
{####################  ОСНОВНАЯ ПРОГРАММА ####################}
 
Var
    n,n_0,i:Integer;
    x,Summ,Summ_0,eps,dydx,cell:Real;
    a:Array[1..1000] Of Real;
Begin
    ReadLn(n);
    n_0:=n;
    For i:=1 To n Do{Заполняем массив значениями a0..an}
        Begin
            ReadLn(cell);
            A[i]:=cell;
        End;
    eps:=0.001;{Это точность вычисления производной}
    x:=0.5;
    Summ:=0;
    Summ_0:=0;
    n:=n_0;
    For i:=1 To n Do{Считаем значение многочлена}
        Begin
            Summ:=Summ+a[i]*St(x,n);
            n:=n-1;
        End;
    {Считаем производную в точке x = 0.5}
    x:=x+eps;
    n:=n_0;
    For i:=1 To n Do{Считаем значение многочлена}
        Begin
            Summ_0:=Summ_0+a[i]*St(x,n);
            n:=n-1;
        End;
    dydx:=(Summ - Summ_0)/(0.5 - x);{Это по классическому определению производной}
    WriteLn('dy/dx = ',dydx:6:3,' value = ',Summ:6:3);
    ReadLn;
End.