Определить по заданному месяцу время года.

var n:integer;
begin
write('Введите номер месяца ');
readln(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;
 readln;
end.

Var n:integer;
begin
writeln('enter number of month');
readln(n);
begin
case n of
1: writeln('Январь-это зима');   
break;
2:writeln('Февраль-это зима');
break;
3:writeln('Март-это весна');
break;
4:writeln('Апрель-это весна');
break;
5:writeln('Май-это весна');
break;
6:writeln('Июнь-это лето');
break;
7:writeln(Июль-это лето');
break;
8:writeln('Август-это лето');
break;
9:writeln('Сентябрь-это осень');
break;
10:writeln('Октябрь-это осень');
break;
11:writeln('Ноябрь-это осень');
break;
12:writeln('Декабрь-это зима');
break;
else writeln('неправильный номер');
break;
end;
end.