Составление программы

var
  A: array[-10000..9999] of real;
  i, N: integer;
  t, y: real;
  
begin
  writeln('Введите показатель степени многочлена:');
  write(' N = ');
  readln(N);
  writeln('Введите t:');
  write(' t = ');
  read(t);
  writeln;
  writeln('Массив случайных коэффициентов:');
  writeln;
  randomize;
  for i := N downto 0 do
  begin
    a[i] := -5 + 10 * int(100 * random) / 100;
    write(a[i]:5)      
  end;
  writeln;
  writeln;
  writeln('Результат:');
  y := a[N]; //начальное значение функции
  for i := N-1 downto 0 do
   y := t * y + a[i];
  writeln(' Значение функции: ', y);
  y := N * a[N]; //начальное значение производной
  t := sqr(t) + 0.5;
  for i := N-1 downto 1 do
   y := y * t + i * a[i];
  writeln(' Значение производной: ', y)
end.

var
  i, N: byte;
  y, y1, a, t: real;
  
begin
  writeln('Введите показатель степени многочлена:');
  write(' N = ');
  readln(N);
  writeln('Введите t:');
  write(' t = ');
  readln(t);
  writeln;
  writeln('Введите ', N + 1,' коэффициентов (через пробел): ');
  read(a); //1-й коэффициент
  t := sqr(t) + 0.5;
  y := a; //начальное значение функции
  y := N * a; //начальное значение производной
  for i := N-1 downto 0 do
  begin
    read(a); //i-й коэффициент
    y := t * y + a;
    if i <> 0 then y1 := y1 * t + i * a
  end;
  writeln;
  writeln(' Значение функции: ', y);
  writeln(' Значение производной: ', y1)
end.