var

 i, n, ch, k1, k2, k3: Integer; //Объявляем переменные

begin // Начало блока  

 Writeln('Введите кол-во чисел: '); Readln(n); //В переменную N записываем информацию о количестве чисел

 Writeln('Введите числа: ');

 for i := 1 to n do // Начинаем цикл for от 1 до N                                  

 begin //Начало цикла

   Readln(ch); //Записываем в переменную CH информацию о числе введеного с клавиатуры

   {Inc - счетчик  

   т.е если условие истинно с помощью Inc  

   мы в переменную k1 записываем +1}

   if ch = 0 Then Inc(k1);  

   if ch > 0 Then Inc(k2);

   if ch < 0 Then Inc(k3);

 end; //Конец цикла

 {Выводим информацию о количестве чисел которые соответствуют условию}

 Writeln('Число нулей: ', k1);  

 Writeln('Число положительных: ', k2);

 Writeln('Число отрицательных: ', k3);

end. // Конец

===== PascalABC.NET =====

begin

 var m := ReadInteger;

 var (z, p, n) := (0, 0, 0);

 ReadSeqInteger(m).ForEach(q -> begin

     case Sign(q) of

       -1: Inc(n);

       0: Inc(z)

       else Inc(p)

     end

   end);

 Print(z, p, n)  

end.