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.