program raf105;

var a,x,y:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

a:=1;

while a<>0 do

begin

 readln(a);

 if a>0

   then x:= x+1;

 if a<0

   then y:= y+1;

end;

writeln('Количество положительных чисел: ',x);

writeln('Количество отрицательных чисел: ',y);

end.

Программа написана на языке PascalABC