Напишите программу, запрашивающую у пользователя N целых чисел и выводящую на экран: а) количество нулей в последовательности; б) количество положительных чисел; в) количество отрицательных чисел.

Var n, k 1, k 2, k 3, p, i : integer;

begin;

writeln (' Type N : ');

readln (n);

for i : = 1 to n do

begin;

readln (p);

if p = 0 then inc (k 1);

if p > 0 then inc (k 2);

if p < 0 then inc (k 3);

end;

writeln (' 0 : ', k 1);

writeln (' + : ', k 2);

writeln (' - : ', k 3);

end.