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

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