Дан массив из N действительных чисел. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.

var a: array[0..100] of Integer;n,i,s,otr,pol,nol: Integer;beginotr:=0;pol:=0;nol:=0;writeln('Введите кол-во чисел, не привышающие число 100');readln(n);Dec(n);for i:=0 to n dobeginwriteln('Введите ',i+1,' число');readln(s);a[i]:=s;end;for i:=0 to n dobeginif a[i]>0 then Inc(pol);if a[i]<0 then Inc(otr);if a[i]=0 then Inc(nol);end;writeln('Положительных чисел: ',pol);writeln('Отрицательных чисел: ',otr);writeln('Нулей: ',nol);end.