Помогите, пожалуйста, написать код в Паскале :Ввести числовой массив (размерность не более 15 элементов). Вывести его на экран. Найти среднее арифметическое четных элементов. Создать новый массив из элементов введенного, кратных трем. Найти максимальный отрицательный элемент в исходном массиве. Если нет четных, отрицательных, кратных трем элементов, то вывести соответствующее сообщение.