Спросить(Перем,Заголовок,Параметр,Интервал,Формат,ДопПараметр)

Описание:
Вызывает диалог с вопросом или диалог для ввода значения переменной.
Перем - строка с вопросом или переменная
Заголовок - заголовок диалогового окна
Параметр - вариант вопроса
0 - простой вопрос к пользователю
1 - Изменяет значение переданной переменной
2 - тоже что и 1, только выводится имя переменной
3 - выбор из списка, возвращает само выбранное значение, либо 0
4 - выбор нескольких из списка, возвращает всегда массив с позициями выбранных элементов
5 - выбор из списка, возвращает позицию выбранного значения, либо -1

Формат - строка с именами кнопок, если простой вопрос.
ДопПараметр - объект, если надо при изменении переменной выбрать еще и элемент из списка.
;

Результат:
Возвращает значение в зависимости от варианта вопроса.
если Параметр=0:
возвращает 1 если пользователь нажал Да, иначе 0
 если пользователь изменил значение переменной.

;

Параметры:
Переменная   - текст или имя переменной в модуле, обязательно
Заголовок      - текст, по умолчанию имя программы
Параметр       - целое, по умолчанию 0
Интервал       - целое, по умолчанию 300
Формат           - текст, по умолчанию пусто
ДопПараметр - объект, по умолчанию 0
;

Пример:
Сообщения.Очистить();
Радиус = 1.5;
Ответ  = Спросить(Радиус, "Введите радиус окружности", 2);
Длина  = 2* 3.14* Радиус;
Сообщить("Радиус окружности", Радиус);
Сообщить("Длина окружности",  Длина);

Пример 2:
М = Массивы.Массив();
М.Добавить(1);
М.Добавить(2);
М.Добавить(3);
Ответ = Спросить(М,,3);
Показать(Ответ);

Приемер 3:
Стр = "язык программирования Defy";
Настройка  = Главный.Найти(Свойства.Наименование,"Настройка");
Если (Настройка=0) Тогда Возврат; Конец;
Поисковики = Настройка.Найти(Свойства.Наименование,"Настройка поисковиков");
Если (Поисковики=0) Тогда Возврат; Конец;
Индекс = Спросить(Стр,"Поиск строки",1,,,Поисковики);
Если (Индекс=-1) Тогда Возврат; Конец;
Выбранный = Поисковики.Получить(Индекс);
Показать(Выбранный);
Стр = Выбранный.'Префикс для адресной строки' + Стр;
Сообщить(Стр);
//Запустить(Стр);