Сформировать одномерный массив из 25 случайных целочисленных элементов, значения которых лежат в диапазоне -40..60. Из
отрицательных элементов исходного массива построить второй массив, определив
его максимальный и минимальный элементы. Построить третий массив, включив в
него из исходного массива элементы, кратные 4. Определить в этом массиве
количество элементов, больших среднего арифметического. Все промежуточные
результаты вывести на экран с комментариями. Программу построить с
использованием процедур и функций
через Pascal (Delphi, Lazarus)