Задача в Паскале.
Выведите на печать сумму N членов геометрической прогрессии с заданным знаменателем прогрессии q и начальным значением a .

А сумму как вычислить?

Я исправил, все вычисляется

Спасибо большое)

program massiv;vara: array [1..100] of integer;n,i,f,d,s: integer;beginwriteln('Введите первый член прогрессии:');readln(f);writeln('Введите знаменатель прогрессии:');readln(d);writeln('Введите число членов прогрессии:');readln(n);a[1]:=f;s:=a[1];write(a[1],' ');for i:=2 to n dobegina[i]:=a[i-1]*d;write(a[i],' ');end;writeln;writeln(s);end.