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 
      Праздник.Дети.Настроение Праздник.елочка.радость; 
  End.