Составте программу по опредилению времени года

Паскаль АВС. Используется оператор case:

program njk; vara:integer; beginwriteln (' Данная программа определяет время года и сам месяц по его номеру') ; writeln (' В году 12 месяцев!') ; writeln (' Введите № месяца') ; readln (a) ; Case a of1:writeln (' Январь - зима') ; 2:writeln (' Февраль-зима') ; 3:writeln (' Март-весна') ; 4:writeln (' Апрель-весна') ; 5:writeln (' Май-весна') ; 6:writeln (' Июнь-лето') ; 7:writeln (' Июль-лето') ; 8:writeln (' Август-лето') ; 9:writeln (' Сентябрь-осень') ; 10:writeln (' Октябрь - осень') ; 11:writeln (' Ноябрь-осень') ; 12:writeln (' Декабрь-зима') ; end; end.