Сделать, чтобы все полученные 20 чисел сложились в одно - PascalABC.NET

Формулировка задачи:

const
  p = 2.7;
 
begin
  var i, s, sum: real;
  i := 1;
  s :=0;
  while i <= 20 do
  begin
    sum := power((-1), i) * power((i + p), (-2 * i));
    i := i + 1;  
    writeln(sum);
  end;
 
end.

Вот есть задача. Помогите сделать, чтобы все полученные 20 чисел сложились в одно.

Решение задачи: «Сделать, чтобы все полученные 20 чисел сложились в одно»

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

const
  p = 2.7;
 
var i, sum: real;
begin
  i := 1;
  while i <= 20 do
  begin
    sum := sum + power((-1), i) * power((i + p), (-2 * i));
    i := i + 1;  
  end;
  Writeln('Сумма = ',sum);
end.

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

В данном коде выполняется вычисление суммы первых 20 чисел, полученных с помощью формулы: sum(n) = (-1)^n * (n + p)^(-2n) где p — это некоторый параметр, а n — это номер числа в последовательности (начиная с 1). Код начинается с определения константы p и переменных i и sum типа real. Переменная i инициализируется значением 1, а sum — нулем. Затем следует цикл while, который выполняется до тех пор, пока значение i не станет больше 20. Внутри цикла выполняется вычисление суммы, используя формулу, описанную выше. Значение переменной i увеличивается на единицу после каждой итерации цикла. После завершения цикла выводится сообщение с общим значением суммы на экран. Код корректно работает и выводит правильный результат.