Напишите функцию, которая рассчитывает значение полинома степени N.

program n18;
uses crt;
type mas=array [1..10] of real;
var a:mas; i,n:integer; x:real;
 
function f(m:mas;s:integer; z:real):real;
var t:real; j:integer;
begin
t:=m[s+1];
for j:=s+1 downto 2 do
t:=m[j-1]+z*t;
f:=t;
end;
 
BEGIN
clrscr;
write('n='); readln (n);
for i:=1 to n+1 do
    begin
    write('a',i-1,'=');readln(a[i]);
    end;
write('x='); readln(x);
write('Значение полинома ',n,' степени равно ',f(a,n,x):0:3);
readln;
END.

uses crt;
type mas=array[0..10] 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('Введите n=');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:5);
readln
end.

for i:=0 to n do//вводим коэффициенты по порядку как обычно пишем у вас 1,2,3
readln(a[i]);
......................................
f:=1;//x^0
s:=a[n];//начальная сумма=свободному члену=3
for i:=1 to n do
 begin
  f:=f*x;//увеличиваем степень х= x^1; x^2
  s:=s+a[n-i]*f;//добавляем к сумме х в данной степени * на коэффициенты с конца(n-i) +2x;+1x^2
 end;