Процедура Лес()

                     Ёлочка = СоздатьОбъект("Ёлка");  

                     Пока Ёлочка.Жива()=1 Цикл

                                           Ёлочка.Возраст=Ёлочка.Возраст+1;

                                           Если (ТекущееВремяГода()="Зима") или (ТекущееВремяГода()="Лето")  Тогда

                                                                Ёлочка.Стройность = 1;

                                                                Ёлочка.Цвет = глПолучитьЦвет("Зеленый");

                                           КонецЕсли;

                                           Метель = СоздатьОбъект("Метель");

                                           Метель.ОткрытьФайл("D:MusicNSYNC - Bye Bye Bye.mp3");

                                           Система.Уснуть(1000);

                                           Метель.Воспроизвести();

                                           Мороз = СоздатьОбъект("Мороз");

                                           Мороз.Укутать(Ёлочка);

                                           Если Ёлочка.Замерзла()=1 Тогда

                                                                Ёлочка.Жива(0);

                                                                Возврат;

                                           КонецЕсли;

                                           Заяц = СоздатьОбъект("Заяц");

                                           Заяц.Трусливый = 1;

                                           Заяц.Цвет = глПолучитьЦвет("Серый");

                                           ЛК = Ёлочка.ЛеваяКоордината;

                                           ВК = Ёлочка.ВерхняяКоордината;                      

                                           Пока 1=1 Цикл

                                                                Заяц.ЛеваяКоордината = ЛК;

                                                                ЛК=ЛК+1;

                                                                Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛК*pi/180)*10));

                                           КонецЦикла;

                                           КомандаСистемы("wolf3d.exe /evil");

                                           СкопироватьВБуфер(Ёлочка);

                                           Праздник = СоздатьОбъект("Праздник");

                                           ВставитьИзБуфера(Ёлочка, Праздник);

                                           Ёлочка.ЗагрузитьСкинИзФайла("нарядная.jpg");

                                           Дети = СоздатьОбъект("Дети");

                                           Для й=1 По Ёлочка.Радость.РазмерСписка() Цикл

                                                                Дети.Настроение=Дети.Настроение+Ёлочка.Радость.ПолучитьЗначение(й);

                                           КонецЦикла;

                     КонецЦикла;

КонецПроцедуры //Лес()