Для Каждого ОчереднаяКонстанта Из Константы Цикл

   ИмяКонст = ОчереднаяКонстанта.СоздатьМенеджерЗначения().Метаданные().Имя;

   ЗначениеКонст = ОчереднаяКонстанта.Получить();

   Сообщить("Константа " + ИмяКонст + " = " + ЗначениеКонст);

КонецЦикла;   

 Для Каждого ОчереднаяКонстанта Из Константы Цикл

   ОчереднаяКонстанта.Установить(Неопределено);

КонецЦикла;