Var a, k, n:integer;

Begin

Write ('Вводите числа') ;

K:=0;n:=0;

Read(a) ;

While a<>0 do begin

If a>0 then k:=k+1;

If a<0 then n:=n+1;

Read(a) ;

End;

Writeln('Положительных ', k) ;

Writeln('Отрицательных ', n) ;

End.