Экзамены по программированию в ШГПИ

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.