program z2;
    var a, n, i, positives, negatives, zeros:integer;
begin
    writeln('Сколько чисел вы хотите ввести? (максимум - 100)');
    readln(n);
    writeln('Вводите числа по одному.');
    positives := 0;
    negatives := 0;
    zeros := 0;
    for i := 1 to n do begin
        readln(a);
        if (a < 0) then begin
            negatives := negatives + 1;
        end
        else if (a = 0) then begin
            zeros := zeros + 1;
        end
        else begin
            positives := positives + 1;
        end;
    end;
    writeln('Введено ', positives, ' положительных чисел, ', negatives, ' отрицательных и ', zeros, ' нулей.');
end.