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

const n1=1000; type mas=array[1..n1]of integer; var a:mas; i,kpol,kotr,knuley,n:integer; begin randomize; 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 else if a[i]>0 then kpol:=kpol+1 else if a[i]=0 then knuley:=knuley+1; writeln(kotr); writeln(kpol); writeln(knuley);end.