Решения задач Pascal
Ввод целых чисел и подсчет количества введенных положительных и отрицательных чисел

Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных чисел.