Позволяет программировать ветвления по многим направлениям. Организует переход на одну из нескольких ветвей в зависимости от значения заданного выражения (селектора выбора).

case K of A1 : ; A2 : ; …. AN : ; else end; Здесь: К – выражение- селектор (целое, символьное или логическое). А1, А2, … AN – константы- метки.

Написать программу, которая по имени компьютера определяет фамилию работающего за ним ученика. Решение. Учеников – 8, компьютеры – от 1 до 8. Если введен другой номер компьютера – «ничей».

program informatika; var komp: integer; begin writeln (введите компьютера); readln (komp); case komp of 1 : writeln(Щербаков); 2 : writeln(Гетманов); …. 8 : writeln(Кленов); else writeln(Ничей); end; end.

program str237; var nomer: integer; begin writeln (узнай чья задача); readln (nomer); case nomer of 62 : writeln(Щербаков и Барабанов); 63 : writeln(Гетманов и Архипов); 65: writeln(Клименко и Хасанова); 66: writeln(Кленов и Хинько); else writeln(Введен неправильный номер); end; end.