Задание 5. Массив constant содержит информацию о месяцах рождения 10 учащихся класса. Составьте программу, вычисляющую количество учащихся, родившихся зимой.

Зимние месяцы — декабрь, январь и февраль, то есть номера месяцев 12, 1 и 2. Подразумевается, что элементы массива constant хранят номера месяцев от 1 до 12.

program WinterBirthdays;
var
  constant: array[1..10] of integer;
  i, count: integer;
begin
  count := 0;
  for i := 1 to 10 do
    if (constant[i] = 12) or (constant[i] = 1) or (constant[i] = 2) then
      count := count + 1;
  writeln('Учащихся, родившихся зимой: ', count);
end.

Программа предполагает, что массив constant уже заполнен номерами месяцев рождения.