Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней - Free Pascal

Формулировка задачи:

Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней ранее спасибо)

Решение задачи: «Пользователь вводит температуру за 7 дней. Вывести количество теплых дней, количество холодных дней»

Листинг программы

const n=7;
var
  a,b,c,i:integer;
begin
  write('введите температуру за ',n,' дней:');
  for i:=1 to n do begin
    read(a);
    if a>0 then b:=b+1 else c:=c+1;
  end;
  writeln(' было ',b,' теплых и ',c,' холодных дней');
end.

Объяснение кода листинга программы

Объявляются константа n и переменные a, b и c типа integer.
Выводится запрос на ввод температуры за 7 дней.
В цикле от 1 до 7 выполняется:
- Пользователю предлагается ввести температуру.
- Если температура больше 0, то увеличивается счетчик b (теплых дней).
- Если температура меньше или равна 0, то увеличивается счетчик c (холодных дней).
Выводится количество теплых и холодных дней.