Дано: а-первый член геометрической прогрессии, знаменатель-q, n-количество членов. вывести на экран все члены геом. прогрессии и их среднее арифметическое (в паскале)

program njn;

uses crt;

var a:array [1 ... 100] of integer;

i, p:integer;

s:real;

begin

clrscr;

readln (a[1], q, n) ;

s:=0;

p:=a[1];

for i:=2 to n do begin

a[i]:=p*q;

p:=a[i];

end;

for i:=1 to n do

writeln (a[i]) ;

for i:=1 to n do

s:=s+a[i];

writeln ('Среднее=', s/n) ;

readln;

end.