Напишите программу которая по введённому номеру месяца выводит сообщения о том какое сейчас время года

uses crt; var i:integer; begin writeln('vvedite chislo'); readln(i); case i of 1:writeln('зима'); 2:writeln('зима'); 3:writeln('весна'); 4:writeln('весна'); 5:writeln('весна'); 6:writeln('лето'); 7:writeln('лето'); 8:writeln('лето'); 9:writeln('осень'); 10:writeln('осень'); 11:writeln('осень'); 12:writeln('зима'); else writeln('неверный диапазон времен года'); end; end.