Новый год ближе с каждым днём!

[cheb_ser]

И поэтому для всех, кто в теме, выкладываю текст новогодней песенки на языке 1С:

Процедура Лес()
Ёлочка = СоздатьОбъект("Ёлка");
Пока Ёлочка.Жива()=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 По Ёлочка.Радость.РазмерСписка() Цикл
Дети.Настроение=Дети.Настроение+Ёлочка.Радость.ПолучитьЗначение(й);
КонецЦикла;
КонецЦикла;
КонецПроцедуры //Лес()

А если по теме, то этой зимой со снегом в столице всё норм. Даже сверхнорм. Ибо вчера утром стоянка у офиса была слегка так присыпана снежком...

и днём снег шёл * * * * * * * * * * * * *
и шёл * * * * * * * * * * * * * * * * * * * * 
и идёт до сих пор. К концу рабочего дня трактор собрал кучу снега ростом выше человека. Куча растёт, только уже в стороны - у трактора ковш выше не поднимается.