Программирование в Паскале: работа с командой Case