program Елочка;
Begin
Лес. елочка. create();
While not Лес. елочка. dead do
Begin
лес. елочка. age := лес. елочка. age+1;
if зима or лето then
begin
лес. елочка. plain := true;
лес. елочка. color := cl_green;
end;
метель. filename:='D:MusicNSYNC - 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*pi180)*10) );
end;
Winexec('wolf3d. exe evil', 0);
лес. елочка. cuttoclipboard;
Праздник. pastefromclipboard;
Праздник. елочка. skin. loadfromfile('нарядная. jpg');
For i:=1 to SizeOf(Праздник. елочка. радость) do
Прадзник. Дети. Настроение + Праздник. елочка. радость;
End.