Подсчитайте, сколько среди данных 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.