//Вывод в окно сообщений

ОчиститьОкноСообщений(); //Очистим окно сообщений

Состояние("Вывожу информацию!");    

Сообщить("ИНФОРМАЦИЯ О ПРОГРАММЕ И ПОЛЬЗОВАТЕЛЕ!","I");

Сообщить("Имя Компьтера - " + ИмяКомпьютера());

Сообщить("Имя пользователя - " + ИмяПользователя());

Сообщить("Полное имя пользователя - " + ПолноеИмяПользователя());

Сообщить("Права пользователя - " + НазваниеНабораПрав());

Сообщить("Название интерфейса - " + НазваниеИнтерфейса());

если Монопольныйрежим()=1 тогда моноп="Монопольный режим" 

иначе моноп="НЕ монопольный режим"

	Конецесли;

сообщить(моноп);

Сообщить("Каталог пользователя - " + КаталогПользователя());

Сообщить("Каталог ИБ - " + КаталогИБ());

Сообщить("Каталог Программы - " + КаталогПрограммы());

Сообщить("Каталог Временных Файлов" + КаталогВременныхФайлов());