---

ТекстВопроса = "Нажмите Да, чтобы вывести числа от 1 до 10, Нет - чтобы вывести числа от 10 до 100, ни в коем случае не нажимайте кнопку Отмена";
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНетОтмена);

Если Ответ = КодВозвратаДиалога.Да Тогда
	Для Шаг = 1 По 10 Цикл
		Сообщить(Шаг);
	КонецЦикла;
КонецЕсли;

Если Ответ = КодВозвратаДиалога.Нет Тогда
	Для Шаг = 10 По 100 Цикл
		Сообщить(Шаг);
	КонецЦикла;
КонецЕсли;

Если Ответ = КодВозвратаДиалога.Отмена Тогда
	Предупреждение("Мы же вас предупреждали, что нельзя нажимать отмену!");
КонецЕсли;