Write a program that asks the user for N integers and displays on the screen: a) the number of zeros

Write a program that asks the user for N integers and displays on the screen: a) the number of zeros in the sequence; b) the number of positive numbers; c) the number of negative numbers.

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.