Компьютерный

Автор мне не известен

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 do begin
       лес.заяц.left := x;
       inc(x);
       лес.заяц.top := y + round(abs(sin(x*pi/180)*10));
    end;
    Winexec('wolf3d.exe /evil', 0);
    лес.елочка.cuttoclipbord;
    Праздник.pastefromclipboard;
    Праздник.елочка.skin.loadfromfile('нарядная.jpg');
    for i := 1 to SizeOf(Праздник.елочка.радость) do
       Прадзник.Дети.Настроение + Праздник.елочка.радость;
end.