Program елочка

"Лучшая песня в исходниках": новогодняя песня "Елочка"

program Елочка; 
Begin 
	Лес.елочка.create(); 
	While not Лес.елочка.dead do 
	Begin 
		лес.елочка.age := лес.елочка.age+1; 
		if зима or лето then 
		begin 
			лес.елочка.plain := true; 
			лес.елочка.color := cl_green; 
		end; 
		
		метель.filename:='D:\Music\NSYNC - Bye Bye Bye.mp3'; 
		метель.open; 
		sleep(1000); 
		метель.play; 

		мороз.укутать(лес.елочка); 
		GetMessage(H, лес.елочка.handle, 0, 0); 
		if h.uint = wm_замерзла then 
		dead := true; 
	end; 

	лес.заяц.create; 
	лес.заяц.трусливый := true; 
	лес.заяц.color := cl_gray; 
	x := лес.елочка.left; 
	y := лес.елочка.top; 
	While x 
	Begin 
		лес.заяц.left := x; 
		inc(x); 
		лес.заяц.top := y + round( abs(sin(x*pi/180)*10) ); 
	end; 
	
	Winexec('wolf3d.exe /evil',0); 

	лес.елочка.cuttoclipboard; 
	Праздник.pastefromclipboard; 
	Праздник.елочка.skin.loadfromfile('нарядная.jpg'); 
	For i:=1 to SizeOf(Праздник.елочка.радость) do 
	Прадзник.Дети.Hастроение + Праздник.елочка.радость; 
End. 

(c) hEAD.

Источник: humor.primedance.ru