Программа

Program Pilshikov_5_12 (input,outpt);
{ Даны натуральное число N и
  вещественные числа t,a0,a1,...,aN.
  Вычислить значение многочлена
  a0*X^N+a1*X^(N-1)+...+a(N-1)*X+aN
  и его производной в точке t¤+0.5. }
Var
  N,i:integer; { N - степень многочлена, i - счетчик }
  X,t,a:real;  { X - переменная многочлена, a - текущий коэффициент при X }
  y,y1:real;   { y - значение многочлена , y1 - значение производной }
BEGIN
  write('Введите степень многочлена ');
  readln(N);
  write('Введите t ');
  readln(t);
  X:=Sqr(t)+0.5;
  write('Введите a0 ');
  readln(a);
  y:=a;
  y1:=a*N;
  for i:=1 to N do Begin
                     write('Введите a',i,' ');
                     readln(a);
                     y:=y*X+a;       { Вычисление полинома по схеме Горнера }
                     y1:=y1*X+a*(N-i)
                   End;
  y1:=y1/X; { Корректировка значения производной, т.к. для ее вычисления
             необходимо на одну итерацию меньше, чем для значения многочлена }
  writeln('y=',y);
  writeln('y''=',y1)
END.