Решение задач с использованием оператора select case

Актуализация знаний
по теме: «Решение задач с использованием условного оператора»
Какой оператор языка Паскаль позволяет реализовать в программе алгоритмическую конструкцию «ветвление»? Каков его общий вид?
Поясните, как выполняется оператор if в ходе работы программы.
Сколько вариантов действий можно предусмотреть, используя один оператор if с простым условием?

Оператор выбора Case
Оператор выбора Case является обобщением оператора if – он дает возможность выполнить одно из нескольких действий в зависимости от назначения переключателя.
Логику работы оператора выбора можно описать так: вычисленное значение Переключателя определяет, какой из Операторов должен быть выполнен. Если Переключатель принимает одно из значений <списка значений 1>, то выполняется <оператор 1>, а остальные операторы пропускаются. Если Переключатель принимает одно из значений <списка значений 2>, то выполняется <оператор 2>. аналогично будут выполняться <оператор 3> и до <оператора n>. <Оператор m> будет выполняться в том случае, если значение Переключателя не совпало ни с одним из значений списков значений от 1-го до n-го.

Форма оператора Case
В общем виде оператор выбора записывается так:
Case <переключатель> of
<список значений 1> : <оператор 1>;
<список значений 2> : <оператор 2>;
...
<список значений n> : <оператор n>;
Else <оператор m>;
end;

Правила выполнения оператора
В качестве переключателя в операторе Case можно использовать переменную типа integer либо char. Переменую типа real использовать нельзя.
Значения в списках можно группировать, а именно:
записывать перечисление значений: 2,4,6
записывать диапазон значений: 10..15
использовать смешанную запись: 21,22,25..30
Одно и то же значение переключателя не должно повторяться в разных списках.
Если в каком-либо варианте значений переключателя должно выполняться несколько действий, то их записывают в виде составного оператора: begin <действие 1>;… <действие k>; end;

Поэтапное решение задачи
Задание 1. Дана отметка по информатике (оценка от 1 до 5). Необходимо в зависимости от отметки вывести соответствующее сообщение: 1-2 – Кошмар!; 3 – Неважно; 4 – Неполохо; 5 – Молодец!; в остальных случаях – Таких отметок не бывает
Дано х – вводимое число в диапазоне 1-5 (тип данных integer) – это отметка по информатике.
Вывести соответствующее сообщение в зависимости от вводимого числа (отметки).
0

Начало
х
0
«Кошмар!»
Конец
x=1,2
«Неважно»
x=3
«Молодец!»
x=5
«Неплохо»
x=4
«Таких отметок не бывает»
6

Program Otmetka
VAR х: Integer;
BEGIN
WriteLn ('Какую отметку ты получил по информатике?');
ReadLn (х);
CASE х OF {Перевод: В СЛУЧАЕ ЕСЛИ отметка РАВНА...}
1,2:WriteLn ('Кошмар!');
3:WriteLn ('Неважно');
4:WriteLn ('Неплохо');
5:WriteLn ('Молодец!');
ELSE WriteLn ('Таких отметок не бывает')
END
END.