Каждомесячный номер выпуска дается-1-12 целое число (1 января, 2 февраля и

var

   n : integer;

begin

   write('введите номер месяца ');

   readln(n);

   case n of

       1, 2, 12  : writeln('зима');

       3..5      : writeln('весна');

       6..8      : writeln('лето');

       9..11     : writeln('осень');

       else writeln('за гранью мудрого');

   end;

end.