program qq;
Const m=10;
Type tN=array[1..m] of integer;
Var N:tN;
    kp,ko,i,kn:integer;
Begin
     Writeln('ВВедите ',m,'Чисел');
     For i:=1 to m do 
         Begin 
              Readln(n[i]);
              if n[i]=0
              then inc(kn)
              else if n[i]>0
                   then inc(kp)
                   else inc(ko);
         end;
     writeln('Количество положительных: ',kp, ' количество отрицательных ',ko, ' Количество нулевых ',kn);
end.