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

program zz1;

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

begin

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

read(a);

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

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.