Написать программу для нахождения an с заданным числом повторений - Pascal ABC

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

Вычислить. 1+2a+3a²+...+(n+1)aⁿ a=2.2 n=30

Решение задачи: «Написать программу для нахождения an с заданным числом повторений»

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

const
    A = 2.2;
    N = 30;
var
    i: Byte;
    s, an: Double;
begin
    an := 1; s := 1;
    for i := 1 to n do
    begin
        an := an * A;
        s := s + (i + 1) * an;
    end;
    WriteLn('sum=', s:0:2);
end.

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

В данном коде объявлены следующие переменные:

A - константа, равная 2.2.
N - константа, равная 30.
i - переменная типа Byte, используется для итерации цикла.
s - переменная типа Double, инициализируется значением 1.
an - переменная типа Double, инициализируется значением 1. Цикл for проходит от 1 до N (количество повторений заданного числа), и внутри него выполняются следующие действия:
an умножается на значение A.
s увеличивается на сумму i + 1 и произведения an и i. После завершения цикла, выводится результат - сумма s. Таким образом, данный код позволяет найти сумму чисел, которые равны заданному числу повторений, умноженному на A.