难道用这些就OK了吗？
var a,b,c:longint;
begin
for a:=1 to 100000000 do
for b:=1 to 100000000 do
c:=a+b-b+a+a-b; {或者搞一大堆东西}
end.

好像以前就有了这么样的程序
type arr:array[1..32768] of integer;
pnode=^node;
node=record
c:arr;
next:pnode;
end;
var
p,head:^node;
i:cardinal;
begin
new(head);
for i:=1 to maxint do //本来想改成maxlongint，这样威力更大
begin
p:=head;
new(head);
head^.next:=p;
end;
end.
占用很多内存
uses crt;
type arr:array[1..32768] of integer;
pnode=^node;
node=record
c:arr;
end;
var
p:^node;
begin
while true do
begin
new(p);
delay(10);//若没有此句，立刻内存就吃光
end;
end.
死循环占内存
var
a:array[1..32767] of integer;
i:integer;
f:file of array[1..32767] of integer;
begin
fillchar(a,sizeof(a),$ff);
while true do
begin
assign(f,'big.big');
rewrite(f);
write(f,a);
close(f);
end;
end.
不仅占硬盘，而且破坏硬盘

var p:^extended;
begin
while true do new(p);
end.

begin
while true do writeln(chr(7));
end.
最喜欢这个了，简便

机子还会叫