По введеному номеру месяца вывести название времени года,помогите пожалуйста..... сделать через PASCAL,оператор case

var

  k:integer;begin

  read(k);

  case k of

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

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

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

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

  end;end.

var n : integer;beginreadln (n);case n of1, 2, 12 : writeln ('зима');3, 4, 5 : writeln ('весна');6, 7, 8 : writeln ('лето');9, 10, 11 : writeln ('осень'); end;end.