program ms3o1; {пишу по памяти-не судите строго за ошибки}

var n,i,j,p,o,n:integer;

begin

n:=0; {тут у нас будут ноли}

o:=0;{тут отрицательные}

p:=o;{и тут соответственно положительные}

writeln('Введите кол-во целых чисел для проверки');readln(n);

for i:=1 to n do

begin

writeln('Введите число: ');readln(j);

if j=0 then n:=n+1;

if j>0 then p:=p+1;

if j<0 then o:=o+1;

end;

writeln('Отрицательных: ',o);

writeln('Положительных: ',p);

writeln('Равны ноль: ',n);

readln;

end.