Ввести 3 числа A, B, C. Определить количество положительных и отрицательных чисел в этом наборе.

Ввести 3 числа A, B, C. Определить количество положительных и отрицательных чисел в этом наборе.
Составил код, всё работет но с одним НО. Если ввести 0 то он прибовляется к числу отрицательных. тоесть;

If B>0 then
begin
x:=x+1;
end
else
y:=y+1;

Не пойму как задать то, что если введён 0 то не считать....

Паскаль

Тоесть 0 является положительным числом? Хе=)а я минут 20 думаю как его отсеить)