вычислить среднее геометрическое положительных элементов массива (a1,a2,...,a40), имеющих четные индексы. если таковых элементов нет, вывести на печать признак 0.
Выполнить нужно через массив в среде разработки Паскаль ABCNET