Задана последовательность из 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