Даю 30 баллов. 4 задание.

Program;Var n:byte;beginreadln(n);Case n 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.

__________________
Case n of1,2,12:Writeln('Зима');3,4,5:Writeln('Весна');6,7,8: Writeln('Лето');
9,10,11: Writeln('Осень');End;
____
Не могу быть точна уверена в правильности решения