Составить программку подсчитывающую сколько дней в январе было с температурой выше,

Допустим, что у нас имеется некая статистика, которая отражает изменение температуры в январе.
Обычно для показателя температуры употребляется целое число.
Означает, мы сделаем массив целого типа и поместим туда значения температуры.
Дней в январе 31, означает, длина массива обязана быть таковой же.
temperature : array [1..31] of integer;
Далее заполняем его некоторыми значениями.
Нам необходимо узнать три показателя.
for i:integer := 1 to 31 do
if (temperature[i] gt; sred) then
bolsh := bolsh + 1;
if (temperature[i] lt; sred) then
mensh := mensh + 1;
if (temperature[i] = sred) then
ravn := ravn + 1;