program Елочка;
Begin
  Лес.елочка.create();
  While Лес.елочка.dead=false 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;
   лес.заяц.property := трусливый;
   лес.заяц.color := cl_gray;
   x := лес.елочка.left;
   y := лес.елочка.top;
   While x<=лес.елочка.right;
   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
     Inc ( Прадзник.Дети.Настроение,   Праздник.елочка.радость);
End