Составить программу вычисления суммы - Pascal ABC (16819)

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

s:=0;
t:=1;
for k:=1 to n do
 begin
  t:=t*x;
  s:=s+k*(k+1)*t
 end;

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

Создается переменная s, которая инициализируется значением 0.
Создается переменная t, которая инициализируется значением 1.
Запускается цикл for, который выполняется n раз, где n - это некая величина, которую мы не знаем.
Внутри цикла переменная t умножается на x, значение которого также неизвестно.
Результат умножения переменной t на x сохраняется в переменной t.
Переменная s увеличивается на сумму k(k+1)t, где k - это текущее значение счетчика цикла.
После завершения цикла, значение переменной s будет содержать искомую сумму.