Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей.…

Писал уже: var input, num, nulls, positive, negative, i: integer; beginwrite ('Введите кол-во чисел: '); readln (input); for i: =1 to input do begin write ('Введите число номером ', i, ': '); readln (num); if num=0 then inc (nulls, 1); //if num < 0 then inc (negative, 1); //if num > 0 then inc (positive, 1); end; writeln ('Кол-во нулей: ', nulls); //writeln ('Кол-во положительных чисел: ', positive) //writeln ('Кол-во отрицательных чисел: ', negative); end.