Помогите составить программу для вычисления выражения ** паскале

Question

Помогите составить программу для вычисления выражения на паскале

---

Answer 1

Var
  n,i:integer;
  a,an,s:real;
begin
  Write('Введите a и n: ');
  Read(a,n);
  s:=0;
  an:=1;
  for i:=0 to n do
  begin
    s:=s+(i+1)*an;
    an:=an*a
  end;
  Writeln('Ответ ',s)
end.

Результат выполнения программы
Введите a и n: 2.2 30
Ответ 1036213351740.38

Comments

Замечание: "an" хранит значение "a" в степени, необходимой для выполнения следующего шага.

---

Так экономнее, а кроме того, стандартный Паскаль не имеет операции возведения вещественного числа в степень.

---

Точнее, в степень, не равную 2.