Оператор выбора Case

ОПЕРАТОР ВЫБОРА- ЭТО УСЛОВНЫЙ ОПЕРАТОР, В КОТОРОМ ПРОИСХОДИТ ВЫБОР ИЗ БОЛЬШОГО ЧИСЛА ВАРИАНТОВ.

Case <выражение> of
<список 1> : <оператор 1> ;
<список 2> : <оператор 2> ;
…………
<список N> : <оператор N> ;
Else <оператор> ;
End;
Формат оператора:

При использовании оператора выбора должны выполняться следующие правила:
Значения выражения «переключателя» записанного после слова Case, должны принадлежать дискретному типу, для целого типа они должны лежать в диапазоне integer;
Все константы, предшествующие операторам альтернатив, должны иметь тип, совместимый с типом выражения;
Все константы в альтернативах должны быть уникальны в пределах оператора варианта, диапазоны не должны пересекаться и не должны содержать констант, указанных в данной или других альтернативах.

case MONTH of
1, 2, 3 : writeln (‘Первый квартал‘);
4, 5, 6 : writeln (‘Второй квартал‘);
7, 8, 9 : writeln (‘Третий квартал‘);
10, 11, 12 : writeln (‘Четвёртый квартал‘);
end;
Если один оператор выполняется при нескольких значениях, то их можно перечислить через запятую.

Сase CODE of
1 : for i := 1 to 5 do writeln (‘*******‘);
2 : begin {составной оператор}
x:=sqr(y-1);
writeln (x);
end;
3 : {пустой оператор}
end;
Оператором может являться не только простой оператор, но также составной и пустой операторы.

Сase Chislo of
0..9 : write (‘Это число является цифрой‘);
Если оператор должен выполняться при нескольких значениях селектора следующих друг за другом, образуя некоторый промежуток, то это можно записать в более сжатой форме.

Работу этого оператора можно проиллюстрировать следующим примером:
Составить программу, которая спрашивает у пользователя номер месяца и выводит соответствующее названия времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение об ошибке «Ошибка ввода данных».
Ниже приведен рекомендованный вид экрана во время работы программы:
Введите номер месяца (число от 1 до 12) и нажмите
-> 12
Зима