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

program zz1;

var a, s, q, n, i:integer; / / вводим переменные целого типа

begin

write (' введите первый член прогрессии '); / / вводим с клавиатуры первое число

read (a);

write (' введите знаменатель '); / / вводим с клавиатуры второе число

read (q);

write (' введите количество членов '); / / вводим с клавиатуры третье число

read (n);

for i:=1 to n do

begin

write (a, ' ');

s:=s+a; / / находим сумму

a:=a*q; / / получаем следующий член геометрической прогрессии

end;

writeln; / / выводим ответ

write (' среднее арифметическое = ', s/n);

end.