Paskal дано целое положительное число n, вещественное число x. найти значение многочлена вида an*x^n+a(n-1)*x^(n-1)++a1*x^1+a0, если коэффициент многочлена вводятся последовательно с клавиатуры в следующем порядке: an, a(n-1), a1, a0

{Файл: prog3_13.pasЗадача:  Дано целое положительное число n, вещественное число x. Найти значение многочлена вида an*x^n+a(n-1)*x^(n-1)+...+a1*x^1+a0,   если коэффициент многочлена вводятся последовательно с клавиатуры в следующем порядке:an, a(n-1), ..., a1, a0Автор:  Дата   22,09,2015}var n, a, i, j :integer;    x, p, x1 :real;    begin  p:=0;  {ввод постояных x, n}  writeln ('введите n, x');  readln (n, x);  {начало вычисление многочлена}  for i:=n downto 1 do    begin      {ввод an, an-1,..., a1, a0}      writeln ('введите a',i);      readln (a);            for j:=1 to n do        begin          {вычисление x^n}          x1:=1;          x1:= x1*x;        end;      {вычисление an*x^n+a(n-1)+x^(n-1)+...+a1*x^1+a0}       p:=a*x1+p;    end;  {ответ}    writeln('значение многочлена ',p);end.