var
    arr: array of real;
    N, i, valueOfPositive, valueOfNegative, valueOfNull: integer;
    inputNumber: real;
begin
    Write('<~ Введите размер массива: ');
    Readln(N);
    
    SetLength(arr, N);
    
    for i := 1 to N do
        begin
            Write(i, '-й элемент: ');
            Readln(inputNumber);
            arr[i] := inputNumber;
        end;
        
    for i := 1 to N do
        if arr[i] > 0 then valueOfPositive := valueOfPositive + 1
        else if arr[i] = 0 then valueOfNull := valueOfNull + 1
        else valueOfNegative := valueOfNegative + 1;
    
    Writeln('Положительных: ', valueOfPositive);  
    Writeln('Отрицательных: ', valueOfNegative);  
    Writeln('Равных нулю: ', valueOfNull);
end.