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

program aaa; var  a,b,c,n,i:longint; M:array[1..1000000] of real; begin read(n);                // for i:=1 to n do      //если считывать массив не нужно, то удалить      read(M[i]);          //    a:=0; b:=0; c:=0; for i:=1 to n do begin   if M[i]>0 then inc(a);   if M[i]=0 then inc(b);   if M[i]<0 then inc(c) end; writeln('положительных элементов:',a); writeln('нулевых элементов:',b); writeln('отрицательных элементов:',c) end.