Задана последовательность из N вешественных положительных чисел. найти среднее геометрическое этих чисел C и определить, сколько среди них чисел меньше C, равных C и больших C

Var a: array of real;

i, n, m, k, p: integer;

s: real;

begin

write ('n = ') ; readln (n) ;

setlength (a, n) ;

s:=1;

randomize;

writeln ('массив:') ;

for i:=0 to n-1 do

begin

a[i]:=random (200) / 1000;

s:=s*a[i];

write (a[i]:5:3,' ') ;

end;

writeln;

s:=power (s, 1/n) ;

p:=0; m:=0; k:=0;

writeln ('среднее геометрическое: ', s) ;

for i:=0 to n-1 do

begin

if a[i]
if a[i]>s then inc (k) ;

if a[i]=s then inc (p) ;

end;

writeln ('меньше: ', m,' равно: ', p,' больше: ', k) ;

end.

n = 10

массив:

0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017

среднее геометрическое: 0.0854754255570728

меньше: 3 равно: 0 больше: 7