Любителям объектно-ориентированного программирования
 

Вот приятель прикол прислал :)

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;

лес.заяц.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;
end;

Winexec('wolf3d.exe /evil',0);

лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile('нарядная.jpg');

For i:=1 to SizeOf(Праздник.елочка.радость) do
Праздник.Дети.Настроение := Праздник.елочка.радость;

End.

Аналогично:

//
// Превед.cpp : Defines the entry point for the console application.
//

#include
#include

//------------------------------------------------------------------
// The PREVED Language Kernel area. Do not touch! :)

#if !defined (_MSC_VER) || _MSC_VER < 1400
#error Wrong compiler! Use MSVS 8.0
#endif

#define НАЧЕЛ {
#define КОНЧЕЛ ;}
#define ТИПА int
#define ВДРУГ if (
#define ТАДА )
#define НИХРИНА else
#define ВЗАД return
#define КАГДИЛА (
#define ЙО ;
#define ЖЖОШ(p,n) for (; (p) <= (n); (p)++)

#define БАЗАР std::cout <<
#define СЛЫШЬ <<
#define СТОЙ system ("echo. & pause");
#define БЛИН _wsetlocale (LC_ALL, L"Russian_Russia.ACP");

#define ВРОДЕ try
#define ИБАНУЦЦО throw
#define АПСТЕНУ catch (const char* __чё__)

#define ПРЕВЕД ТИПА main КАГДИЛА ТАДА
#define МЕДВЕД ВЗАД 0; КОНЧЕЛ

// End of area
//------------------------------------------------------------------

ТИПА КРУТО КАГДИЛА ТИПА фигня ТАДА
НАЧЕЛ
БАЗАР "ВАЩЕ " ЙО
ВДРУГ фигня == 8 ТАДА ИБАНУЦЦО "мля! " ЙО
ВЗАД 0
КОНЧЕЛ

ПРЕВЕД
НАЧЕЛ
БЛИН

ВРОДЕ НАЧЕЛ

ТИПА фишка = 0 ЙО

ЖЖОШ (фишка, 10)
НАЧЕЛ
БАЗАР фишка СЛЫШЬ " ";
ВДРУГ фишка >= 5 ТАДА КРУТО (фишка) ЙО
КОНЧЕЛ

КОНЧЕЛ АПСТЕНУ НАЧЕЛ
БАЗАР "ИБАНУЦЦО invoked: " СЛЫШЬ __чё__;
КОНЧЕЛ

СТОЙ
МЕДВЕД