Написать программу в Паскаль. Определить среднее арифметическое всех отрицательных и четных чисел.

Тут программа не нужна. Здесь ты пытаешься объединить в одно два бесконечных множества с разной мощностью, вычислить сумму его элементов и разделить на бесконечность. Это не имеет смысла.