геометрическая прогрессия онлайн расчет

Ответ от Ксюня[гуру]
var N:integer:
var a:array [1..N] of integer;
var m: integer; // ход геометрической прогрессии
var n: integer; // число первого элемента прогрессии
begin
readln(N);
readln(m);
readln(n);
a[1]:=n;
for i= 2 to N do
begin
a[i]:=a[i-1]*m // заполнение массива значениями элементов последовательности
end:
writeln(a[N]); // вывод значения N-ого элемента заданной последовательности
end.