Дано: а-первый член прогрессии, знаменатель-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.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

1)деловая бумага; 2)подтверждает факт или право