Программы на языке Pascal: решаем задачи с оператором Case