Сформировать и вывести целочисленный массив - Pascal

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

Даны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.

Решение задачи: «Сформировать и вывести целочисленный массив»

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

mas[1]:=a;
mas[2]:=b;
sum:=a+b;
for i:=3 to n do
 begin
  mas[i]:=sum;
  sum:=sum+mas[i];
 end;

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

Создается целочисленный массив mas размером n
В первую ячейку массива mas[1] записывается значение переменной a
Во вторую ячейку массива mas[2] записывается значение переменной b
В переменную sum записывается сумма значений переменных a и b
Начиная с третьей ячейки массива mas[i], в каждой ячейке записывается значение переменной sum
Значение переменной sum увеличивается на значение каждой последующей ячейки массива mas[i].
Цикл выполняется до тех пор, пока индекс i меньше или равен n.