Вычислить значение выражения - Free Pascal (376)

y=10x+9(x^2)+...+(x^10) Помоги ребят)

Листинг программы

s:=1;
y:=0;
for i:=n downto 1 do
 begin
  s:=s*x;
  y:=y+i*s;
 end;

Объяснение кода листинга программы

В начале программы объявлены две переменные: s и y. Значение переменной s установлено равным 1, а значение переменной y установлено равным 0.
Далее следует цикл for, который начинается с переменной i равной n и выполняется до тех пор, пока i больше или равно 1.
Внутри цикла выполняются два действия:
- Перемножение значения переменной s на значение переменной x.
- Прибавление произведения переменной s и переменной i к значению переменной y.
По завершении цикла, значение переменной y будет содержать результат вычисления выражения.