Задача в Паскале.

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