Вообще-то, правды ради....
Приведённый вами кусок программы на C с точностью до опечаток взят из архивов победителей Obfuscated C Contest за 1985 год (http://www.ioccc.org/years.html#1985).

shapiro.c:
#define P(X)j=write(1,X,1)
#define C 39
int M[5000]={2},*u=M,N[5000],R=22,a[4],l[]={0,-1,C-1,-1},m[]={1,-C,-1,C},*b=N,
*d=N,c,e,f,g,i,j,k,s;main(){for(M[i=C*R-1]=24;f|d>=b;){c=M[g=i];i=e;for(s=f=0;
s<4;s++)if((k=m[s]+g)>=0&&k<C*R&&l[s]!=k%C&&(!M[k]||!j&&c>=16!=M[k]>=16))a[f++
]=s;if(f){f=M[e=m[s=a[rand()/(1+2147483647/f)]]+g];j=j<f?f:j;f+=c&-16*!j;M[g]=
c|1<<s;M[*d++=e]=f|1<<(s+2)%4;}else e=d>b++?b[-1]:e;}P(" ");for(s=C;--s;P("_")
)P(" ");for(;P("\n"),R--;P("|"))for(e=C;e--;P("_ "+(*u++/8)%2))P("| "+(*u/4)%2
);}

Обращаю Ваше внимание на то, что это соревнования, где побеждают самые нечитаемые и запутанные программы.

Со своей стороны попробую найти дома несколько программ на Паскале, похожих по непонятности на данный вариант. А пока маленький пример...

Var M:^Char;
Begin
M^:=^M;
Write(M^);
End.

Что будет выдано на консоль?

Бывают еще менее читабельные языки (http://www.kx.com/a/k/examples/xml.k) ;-)

Ну тогда можно вспомнить ещё и замечательный язык BrainF*ck (http://www.ntecs.de/old-hp/uu9r/lang/html/lang-all.en.html#brainf_ck), программа для вывода "Hello, world!" на котором выглядит так:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.---.+++++++..+++.>++++++++++++++++++++++++++++++++.<++++++++.--------.+++.------.--------.>+.>++++++++++.

Или творение первой программистки Ады?
:)

Именно.
@see BrainF*ck: An Eight-Instruction Turing-Complete Programming Language (http://www.muppetlabs.com/~breadbox/bf/)
Зато компилятор для него весит меньше четверти килобайта...