Ввести номер месяца и вывести название времени года. пример: введите номер месяца 4 весна напишите программу на языке паскаль

Var  a: byte; begin    writeln('введите номер месяца: ');   readln(a);   case a of     1, 2, 12: writeln('зима');     3..5: writeln('весна');     6..8: writeln('лето');     9..11: writeln('осень')   else writeln('ошибка');   end; end.

27: 2=13       \1 13: 2=6         \1 6: 2=3           \0 3: 2=1           \1                     \1. 27(10)=11011(2).