Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессий - QBasic

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

Array>Дано цело число N(>1),а также первый член А и знаменатель D геометрической прогрессий. Дано цело число N(>1),а также первый член А и знаменатель D геометрической прогрессий. Сформировать и вывести массив размера N,содержащий N первых членов данной прогрессий: A,A*D, A*D^2 , A*D^3 , ... . Просто в Бейсике надо, а я не знаю как(

Решение задачи: «Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессий»

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

program mas;
var i,j,a,d,n:integer;
var mass:array[1..100] of integer;
begin
writeln('Введите N>1, а так же первый член А и знаменатель D: ');
write('N=');readln(n);write('A=');readln(a);write('D=');readln(d);
i:=0; mass[i]:=a;
i:=1; mass[i]:=a*d;
j:=d;
for i:=2 to n do 
    begin
    d*=j;
    mass[i]:=a*d;
    end;
for i:=0 to n-1 do writeln(mass[i]);
end.

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

Объявляются переменные i, j, a, d, n типа integer (целое число) и переменная mass типа array[1..100] of integer (массив 100 элементов целых чисел).
Выводится запрос на ввод N, A и D.
Переменная N инициализируется значением, введенным пользователем.
Переменная A инициализируется значением, введенным пользователем.
Переменная D инициализируется значением, введенным пользователем.
Первый элемент массива инициализируется значением переменной A.
Второй элемент массива инициализируется значением переменной A, умноженной на переменную D.
Переменная j инициализируется значением переменной D.
В цикле от i=2 до N выполняется:
1. Значение переменной D умножается на значение переменной j.
2. Элемент массива с индексом i инициализируется значением переменной A, умноженной на значение переменной D.
Завершается цикл.
В цикле от i=0 до N-1 выводятся все элементы массива.