Задав одномерный массив целочисленных данных А в формате LONGINT, найти сколько отрицательных, положительных и нулевых элементов в массивеA={a[i]}. Длина массива N<=20. Исходные данные задать самостоятельно, учитывая формат элементов массива A.

var

 a:array of longint;

 o,p,i,n:integer;

begin

readln(n);

setlength(a,n);

for i:=0 to n-1 do

 begin

   readln(a[i]);

   if a[i]>=0 then

     if a[i]>0 then

       inc(p)

         else

           inc(o);  

 end;

 writeln;

 writeln('Pol: ', p);

 writeln('=0: ', o);

 writeln('Otr: ', n-p-o);

end.