.(По введеному номеру месяца вывести название времени года, сделать через 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;
begin
readln (n);
case n of
1, 2, 12 : writeln ('зима');
3, 4, 5 : writeln ('весна');
6, 7, 8 : writeln ('лето');
9, 10, 11 : writeln ('осень');
end;
end.