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