Вычислить среднее геометрическое положительных элементов массива

Program Massiv;
const n=10;
var
A:array[1..n] of integer;
i,b:integer;
Srg:real;
flag:boolean;
begin
b:=1;
For i:=1 to n do begin
A[i]L=random(n);
b:=b*A[i];
write(A[i]:2);
end;
flag:=true;
for i:=1 to n do
if A[i] < i*i then
begin
 A[i]:=A[i]/Srg;
flag:=false;
end;
if flag then writeln ('Nechego Preobrazovovat');
writeln;
writeln('massiv A posle izmeneniya:');
for i:=1 to n do
write(A[i]:5);
end.

program Sanook ;
const n=5;
var
 A:array[1..n]of real;
 I:byte;
 Srg:real;
   p:real;
 flag:boolean;
begin
write('n=');
  for i:=1 to n do
    begin
      write('a[',i,']=');
      readln(a[i]);
    end;
p:=1;
for i:=1 to n do
p:=p*A[i];
write (A[i]:2);
srg:=exp(ln(p)/5);
write (srg);
flag:=true;
for i:=1 to n do
 if A[i] < i*i then
  begin
  A[i]:=A[i]/Srg;
  flag:=false;
  end;
if flag then writeln('Nechego preobrazovyvat');
writeln;
begin
  for i:=1 to n do
    write(a[i]:6);
writeln;
end;
end.

program Sanook ;
const n=5;
var
 A:array[1..n]of real;
 I:byte;
 Srg:real;
   p:real;
begin
writeln('n=',n);
  for i:=1 to n do
    begin
      write('a[',i,']=');
      readln(a[i]);
    end;
    
p:=1;
 
for i:=1 to n do begin if a[i]<>0 then
p:=p*A[i];
end;
srg:=exp(1/n*ln(p));
write (srg);
for i:=1 to n do  begin
 if A[i] < i*i then
  A[i]:=A[i]/Srg else writeln('Nechego preobrazovyvat');
writeln;
end;
begin
  for i:=1 to n do
    write(a[i]:10:5);
writeln;
end;
end.