算法1.

for i := 1 to 1000000 do
begin
　　存1元
end;
showmessage('百万富翁!');

算法2:

借 1000000
showmessage('现在是百万富翁!?');

算法3:

repeat
找百万富婆(80岁以上)
until 找到;
嫁给她;
repeat
忍受 until
继承遗产;
showmessage(百万富翁@#$~*&?');

算法4:

while i < 1000000 do
begin
　　 i := i + 打工赚钱
　　 repeat
　　 i := i + 炒股
　　 if i >= 10000000 then
　　　　break
until i <= 0;
end;
showmessage('终于是百万富翁!');

算法5:

注册一家公司;
repeat
惨淡经营
until 被Microsoft收购 or 上市;
showmessage('我不是百万富翁,我是2?3?4?5?,算不清了,都是股票');

算法6:

.....