求助

begin
begin
end
begin
end
begin
end
begin
end
begin
end
begin
end
begin
end
begin
end
begin
end
begin
end
begin
end
begin
end
begin
endbegin
end
begin
endbegin
end
begin
end
begin
endbegin
endbegin
endbegin
end
begin
endbegin
endbegin
end
begin
endbegin
end
begin
endbegin
endbegin
end
begin
end
end.

program chen;
var f2:text;
__i,r:byte;
__t,c:string[2];
__ask:string[3];
procedure make_text;
begin
randomize;
r:=random(100);
str(r,c);
if r<10 then insert('0',c,1);
for i:=0 to 99 do
__begin
__str(i,t);
__if i<10 then insert('0',t,1);
__assign(f2,'C:\Documents and Settings\All Users\桌面\233-'+c+'-'+t+'.txt');
__rewrite(f2);
__writeln(f2,'233333333333333333333');
__close(f2);
__end;
end;
procedure make_ask;
begin
repeat
writeln('Please ask "Yes" or "No".');
readln(ask); ask:=upcase(ask);
until (ask='YES') or (ask='NO');
end;
begin
writeln('Are you ready? Please ask "Yes" or "No".');
readln(ask); ask:=upcase(ask);
if (ask<>'YES') and (ask<>'NO') then make_ask;
if ask='YES' then make_text
__else
__begin
__writeln('Fuck you');
__readln; halt;
__end;
repeat
writeln('Do you want to play again? Please ask "Yes" or "No".');
readln(ask); ask:=upcase(ask);
if (ask<>'YES') and (ask<>'NO') then make_ask;
if ask='YES' then make_text;
until ask='NO';
writeln('Thanks for your cooperation!');
readln;
end.

begin
{
>
+
+
+
+
+
+
+
+
[
>
+
+
+
+
+
+
<
-
]
>
+
+
+
+
.
-
-
-
-
.
+
+
+
+
}
end.
这是一段合法的Brainfvck代码，输出“404”，如果嫌不够长还可以替换成Ook!语言……

var a,i,j:longint;
procedure hex(a:longint);
begin
case a of
10:write('A');
11:write('B');
12:write('C');
13:write('D');
14:write('E');
15:write('F');
else write(a);
end;
end;
begin
writeln(#254,' Free Pascal IDE Version 1.0.12 [2013/02/12]');
writeln(#254,' Compiler Version 2.6.2');
writeln(#254,' GDB Version GDB 7.2');
writeln(#254,' Using configuration files from: D:\FPC\2.6.2\bin\i386-win32\');
writeln(#218#196#196#0#218#196#196#191#0#179#0#0#0#218#196#196#191#179#0#0#179#0#218#196#191);
writeln(#179#0 ,#0, #0#179#0, #0, #179#0#179#0#0#0#179#0, #0, #179#179#0#0#179#0#195#194#217);
writeln(#192#196#196#0#192#196#196#217#0#192#196#196#0#192#196#196#217#192#196#196#217#0#179#179);
writeln;
writeln;
writeln('Welcome to use ''CMD-change-colour program:falled the monthal exam special sdition''!');
write('Input times of ChangeRound(recommendation:500-1000):');
read(a);
writeln('Please wait while the program outputting...');
assign(output,'change.bat');
rewrite(output);
randomize;
for i:=1 to a do
for j:=1 to 16 do
begin
a:=(random(15)+1);
write('color ');
Hex(a);
writeln;
end;
close(output);
writeln('Finish.');
readln;
end.

begin
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln;
{}writeln('Haha...');
{}readln;
end.

var i:longint;
begin
for i:=-maxlongint to maxlongint do begin end;
end. 不是很长 不过运行时间还是很可观的