Структура программы на языке Турбо Паскаль

Оператор выбора Case [кейс]

Формат оператора:

case управляющая_переменная of
   набор_значений_1 : оператор_1;
   набор_значений_2 : оператор_2;
   ...
   набор_значений_n : оператор_n;
else оператор;
end;

где управляющая_переменная - переменная целого, символьного или логического типа (остальные типы использовать нельзя!);
набор_значений - конкретное значение управляющей переменной или выражение, при котором необходимо выполнить соответствующий оператор, игнорируя остальные варианты.

Выполнение оператора:

Если управляющая_переменная принимает значение из набора_значений_1, то выполняется оператор_1;
если управляющая_переменная принимает значение из набора_значений_2, то выполняется оператор_2;
...
если управляющая_переменная принимает значение из набора_значений_n, то выполняется оператор_n;
если управляющая_переменная не принимает ни одно значение из имеющихся наборов, то выполняется оператор после слова else.

Пример:

Ввести номер дня недели. Вывести его название.

Program NED;
var i: integer;
const c='Сегодня ';
begin
   write ('Введите номер дня недели: ');
   readln (i);
case i of
      1 : write (c,'понедельник');
      2 : write (c,'вторник');
      3 : write (c,'среда');
      4 : write (c,'четверг');
      5 : write (c,'пятница');
      6 : write (c,'суббота');
      7 : write (c,'воскресенье');
else write ('В неделе 7 дней!');
end;
end.