Помогите плиз составить задачу  )))в массиве хранится информация о среднедневной температуре декабря. составьте программу, которая подсчитает, сколько в декабре было дней с нулевой, отрицательной и положительной температурой   ...

program xxx;    var i, m, p, n : integer;          t : array[1..31] of real; begin   writeln('введите температуру ')   for i:=1 to 31 do      readln(t[i]);   m:=0; p:=0; n:=0;   for i:=1 to 31 do     begin        if t[i]<0 then m:=m+1;        if t[i]>0 then p:=p+1;        if t[i]=0 then n:=n+1     end;   writeln('Дней с отрицательной температурой было - ', m);   writeln('Дней с положительной температурой было - ', р);   writeln('Дней с нулевой температурой было - ', n);   readln end.