Помогите по информатике, очень нужно!

[Clash]

Вычислить среднее геометрическое элементов массива(y[1],y[2],y[n], удовлетворяющий условию y[i]>a
если таких элементов нет, то вывести сообщение об этом

Нужна программа в паскале, я вообще в этом не шар, помогите плиз)

[Hatter]

Program I_don't_know_pascal;
begin
const
n = 8;

var
y: Array [1..n] Of Real;
j : Integer;
k,s,a:Real;

begin

k:=0;
s:=1;

a:=5;
y[1]:=1;
y[2]:=2;
y[3]:=3;
y[4]:=4;
y[5]:=5;
y[6]:=6;
y[7]:=7;
y[8]:=8;

for j:=1 to n do
if y[j]>a then begin
k := k+1;
s := s*y[j];
end;

if k = 0 then begin
write('элементов, удовлетворяющий условию y[i]>a нет');
writeln();
end;

if k > 0 then begin
k:=1/k;
s:=exp(k*ln(s));
write(s,'среднее геометрическое');
writeln();
end;
end.

[AdmiR Vlad]

Геометрическое среднее - это "итоговая" статистика, полезная при нелинейной шкале измерений, которая вычисляется как:

G = (x1 *x2 *...*xn )1/n

где

n - число наблюдений (объем выборки).
1/n - это степень

[Hatter]

(a)^b = exp(b*ln(a))

[AdmiR Vlad]

ага апсиб