Напишите программу, запрашивающую у пользователя 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.