4. Написать программку, которая вводит с клавиатуры номер месяца и зависимости от

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('Введите номер месяца (1-12):');
  case n of
  3,4,5:Writeln('Весна');
  6,7,8:Writeln('Лето');
  9,10,11:Writeln('Осень');
  12,1,2:Writeln('Зима')
  else Writeln('Неверный номер')
  end
end.

include lt;iostreamgt;
using namespace std;
int main()
while (1)     setlocale(0, "rus");    int number;
    cout lt;lt; "Введите номер месяца " lt;lt; endl;    cin gt;gt; number;    switch (number)            case 1: case 2: case 12:            cout lt;lt; "Зима " lt;lt; endl;            break;        case 3: case 4: case 5:            cout lt;lt; "Весна " lt;lt; endl;            break;        case 6: case 7: case 8:            cout lt;lt; "Лето " lt;lt; endl;            break;        case 9: case 10: case 11:            cout lt;lt; "Осень " lt;lt; endl;            break;   

return 0;