Найти сумму элементов геометрической прогрессии - PascalABC.NET

Составьте,пожалуйста, программу для вычисления суммы геометрической прогрессии 1+a+a2+a3+…+a^n

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

var 
  a : double := 2;
  n : Integer := 5;
begin
  writeln('s = ', 
    Enumerable.Range(0, n + 1).Select((i : integer) -> Power(a, i)).Sum());
end.

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

В данном коде на языке PascalABC.Net происходит следующее:

Объявляются две переменные:
- a типа double со значением 2;
- n типа Integer со значением 5.
Выводится сообщение с результатом вычисления суммы элементов геометрической прогрессии.
- s - результат вычисления суммы;
- 2, 3, 4, 5, 6 - элементы геометрической прогрессии, полученные с помощью функции Enumerable.Range(0, n + 1), которая создает последовательность целых чисел от 0 до n (включительно).
- Значение каждого элемента последовательности возводится в степень a с помощью функции Power(a, i).
- Полученные значения элементов геометрической прогрессии суммируются с помощью метода Sum(). Таким образом, результатом выполнения данного кода будет сумма элементов геометрической прогрессии со знаменателем a^i для i от 0 до n.