Задача в Паскале. Выведите на печать сумму 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.