По заданным числам n и a вычислить значение суммы - Free Pascal

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

Дана формула: По заданным числам n и a вычислить значение суммы Пример Ввод: n=3, a=3; вывод 102

Решение задачи: «По заданным числам n и a вычислить значение суммы»

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

var 
n, a, i, aa, s: int64;
begin
i:=1;
s:=0;
read(n, a);
aa:=a;
if a=1 then 
s:=(n*n-n) div 2 +n
else
begin
while i<=n do
begin
s:=s+aa*i;
aa:=aa*a;
inc(i);
end;
end;
writeln(s);
end.

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

Объявлены переменные: n, a, i, aa, s (тип данных — int64).
Инициализированы переменные: i = 1, s = 0.
С помощью функции read() введены значения для переменных n и a.
Переменная aa инициализируется значением переменной a.
Если a = 1, то сумма вычисляется по формуле: s = (n*n-n) div 2 +n.
Если a не равно 1, то выполняется цикл while, который выполняется n раз.
Внутри цикла, к сумме s прибавляется значение переменной aa умноженное на текущее значение i.
Значение переменной aa умножается на значение переменной a.
Значение переменной i увеличивается на 1.
После выполнения цикла, значение переменной s выводится на экран с помощью функции writeln().