С клавиатуры вводится среднесуточная температура за октябрь определите количество дней в которые были заморозки Программу надо в паскале написать

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal для определения количества дней с заморозками в октябре:

program CountFreezingDays;
var
temperature: array [1..31] of integer;
i, freezingDays: integer;
begin
freezingDays := 0;
writeln('Введите среднесуточную температуру за октябрь:');
for i := 1 to 31 do
begin
write('День ', i, ': ');
readln(temperature[i]);
if temperature[i] < 0 then
freezingDays := freezingDays + 1;
end;
writeln('Количество дней с заморозками в октябре: ', freezingDays);
end.

Программа позволяет ввести среднесуточную температуру за каждый день октября и определяет количество дней с заморозками (температура ниже 0 градусов Цельсия).