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

Var n , k 1 , k 2 , k 3 , p , i : integer ;begin ;writeln ( \' Type N : \' ) ;readln( n ) ;for i : = 1 to n dobegin ;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.