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

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