Найти среднее геометрическое элементов матрицы

s:=0;
for i:=1 to n do begin
s:=s+a[i];
end;
sr:=s/n;

s:=0;
for i:=1 to n do begin
for j:=1 to m do begin
s:=s+a[i,j];
end;
end;
sr:=s/n*m;

p:=1;
for i:=1 to n do p:=p*m[i];
if p>=0 then p:=sqrt(p);

p:=1;
for i:=1 to n do p:=p*m[i];
p:=exp((1/n)*ln(p));

var
i,b:integer;
sg:real;
s:array[1..5]of integer;
begin
b:=1;
for i:=1 to 5 do begin
s[i]:=random(5);
b:=b*s[i];
write(s[i]:2);
end;
sg:=exp(ln(b)/5);
write(sg);
end.

var
i,b:integer;
sg:real;
s:array[1..5]of integer;
begin
b:=1;
for i:=1 to 5 do begin
s[i]:=random(5)+1;
b:=b*s[i];
write(s[i]:2);
end;
sg:=exp(ln(b)/5);
write(sg);
end.

uses crt;
var p,n,i:longint;
m:array[1..100]of integer;
s:real;
 
begin
 clrscr;
 write('N -> ');
 readln(n);
 write('Введите элементы массива: ');
 for i:=1 to n do read(m[i]);
 readln;
 p:=1;
 for i:=1 to n do p:=p*m[i];
 if n mod 2=0 then
 begin
 if p>=0 then 
 begin
  s:=exp((1/n)*ln(p))
  writeln('Среднее геометрическое = ',s);
 end else writeln('Произведение чисел меньш нуля!');
 end else
 begin
  if p>=0 then s:=exp((1/n)*ln(p)) else s:=-exp((1/n)*ln(abs(p)));
  writeln('Среднее геометрическое = ',s);
 end;
 readln;
end.