написать программу PASCAL ( процедуры и функции)
Подсчитать произведение четных элементов одномерного массива вещественных чисел, стоящих на нечетных местах. В подпрограмме-процедуре заполнить массив случайным образом в диапазоне [-80;20], а в подпрограмме-функции подсчитать произведение четных элементов, стоящих на нечетных местах.