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

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