Мне нужна помощь еще с одной задачей

Мне нужна помощь еще с одной задачей. Нужно на языке программирования в программе Паскаль, создать программу: Найти произведение, сумму и количество всех отрицательных чисел на отрезке [x; y].[x; y] нужно задать неким n- количеством чисел, которые мы должнв написать, пусть будет 7, а затем ввести этих 7 различных чисел по порядку и дальше по заданию, желательно решить через For или While или Repeat