Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей. Разработать для программы не менее двух тестов и доказать прав...

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.