Дан целочисленный массив состоящий из 30 элементов. Вывести кол-во положительных,отрицательных и нулевых элементов. Программа нужна для паскаль ABC, желательно объяснить что и как получилось, если не трудно, заранее спасибо. 

constn1=1000;typemas=array[1..n1]of integer;vara:mas;i,kpol,kotr,knuley,n:integer;beginrandomize;readln(n);for i:=1 to n do a[i]:=random(31)-5;for i:=1 to n do write(a[i],' '); writeln;kpol:=0;kotr:=0;knuley:=0;for i:=1 to n doif a[i]<0 then kotr:=kotr+1 elseif a[i]>0 then kpol:=kpol+1 elseif a[i]=0 then knuley:=knuley+1;writeln(kotr);writeln(kpol);writeln(knuley);end.