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

Паскаль АВС. Используется оператор 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.