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

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

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

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

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