Question

ПОМОГИТЕ ЗАДАЧУ В ПАСКАЛЕ РЕШИТЬ!

Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000 программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел. Пример работы программы:
Входные данные:150;-200;-1;0
Выходные данные:-51;-1