Решение задач по теме "Оператор выбора Case в Pascal"
Решение задачи №3
program three;
var x:integer;
begin
writeln('Введите номер месяца');
readln(x);
case x of
1,2,12: writeln('Зима');
3..5: writeln('Весна');
6..8: writeln('Лето');
9..11: writeln('Осень');
end;
end.