《列战者》
源码如下：
program liezhanzhe;
var a,b,c:longint;
begin
writeln('列战者'); for a:=1 to 580000000 do b:=1+2
+3
-4*5;
writeln('制作:圣光守护者☆星神'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('素材:《王国历史》→16级 3/4《战神之歌》→《列战者》(改编)');for a:=1 to 980000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('这是一次长达3分钟的影视'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('曾狗将永远沉睡在厕所里'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('曾狗与火花对战，被烧焦了'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('无限加法？你去问被打残的曾狗吧，我是不会告诉你的'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾狗怎么会知道什么是加法呢？'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('它是怎样被打残的？我给大家讲一个故事'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('很久以前，它还是一个狗蛋'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('有一天，它获得了力量，变成一个有战力的生物'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('他遇到火花后，火花很讨厌曾狗，于是用爆击枪烧了曾狗一下'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾狗狂跳不止'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('终于曾狗蛋要觉醒了'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('曾狗蛋进化成了曾二狗'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('曾二狗找火花去报仇！呜~'); for a:=1 to 580000000 do b:=1+2+3-4*5;
writeln('LV.10的曾二狗找到了LV.11的火花'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火花怒吼了！！！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾二狗在烈火的洗礼下阵亡了！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾二狗的冤魂——曾大狗'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.15的曾大狗在呼啸！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.17的火花得意地吃着狗肉！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火花就要进化了'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾大狗石魂碎裂，一股怒火冲向火花'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火花一副不屑的样子'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('暴怒吧！暴击！克制！4倍伤害！！！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('消灭火花啊'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火花被打飞了'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火花愤怒地撞向曾大狗，把曾大狗撞得粉碎！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾大狗怨气过多，无法重生，无限的怨灵聚集成饱含怨念的幻化曾大狗！！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.22的幻化曾大狗获得了觉醒的力量！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火花，出招吧！猛烈撞击！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('“不，我叫焰火，看我的火之刃！”'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.19的火花举起巨大的无形利刃，劈向曾大狗'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('抵抗！但是暴击了！！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('呜呜呜！！！曾大狗咆哮道：“你在给我挠痒痒，对吧？”'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('重生的曾大狗拿起碎裂巨石之魂，凝聚成石灵之力'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('来吧，滚石术！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('焰火华丽地躲过了石块'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾大狗的石魂已经耗尽，不战自败'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('5个月后'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾大狗的怨念转化了，32级的终极进化版石化曾大狗来了！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('焰火在炼狱中历练了5个月，它收集了炼狱中的所有烈火能量，聚集在身体里。'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('面对笨重的石化曾大狗，焰火毫不畏惧'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.23的焰火，来吧！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火焰喷发！它释放出所有的火焰之力，顿时响起剧烈的爆炸声'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('所有石块和建筑都被夷为平地，整个荒原被点燃了。'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('剧烈的火光引来了石化曾大狗，它狂奔着，站在烈焰之中，毫无畏惧'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('焰火又一次放出火焰喷发，正中曾大狗的要害'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('暴击！曾大狗被打倒了，但它站起来，继续战斗'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('车裂！曾大狗使出绝招，焰火濒临死亡'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('荒原上的火还在燃烧，曾大狗受到持续伤害，早已精疲力竭'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('焰火使出最后的招数！！'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾大狗又挨了一招，它使出车裂，但没有MP了'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('躲闪，干得漂亮。焰火打出了最后一招，使用了法宝：大瓶HP药剂'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火焰聚能！！焰火的血量值满了，曾大狗必败无疑'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('2年后'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.42的火神不停的找曾大狗。据说它能消灭见到的一切'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('石化曾大狗50级了，这是最后一次进化：毁灭曾大狗！并且它有了副属性：毒系'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('路上，它遇到了一个暴角龙。它拿出毒尘放射打向暴角龙'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('暴角龙一个撞头锤，曾大狗尸骨无存'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('也许是由于它的怨念，它又一次重生'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('见到火神，它不认识了'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('烈焰冲锋！火神以神之力发动毁灭性攻击，当然对自己也造成近HP一半的伤害'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('曾大狗不堪一击，被打败了'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('就这样，火花与曾狗的战争，以火花的彻底胜利告终'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('后记'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('100年后，不知什么原因，曾狗又出现了。他完成了令所有人敬畏和向往的工作：超进化'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.100的复仇者曾大狗全副武装找到了当年的火花'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('火花不再叫火花了，当然也不再叫焰火和火神了'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('50年前他获得了神赐的力量，完成了科伦尔的烈火考验'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('LV.100的烈火战神，又经历了50年的地狱之旅，他打光了所有怪物，秒杀了残害众生的狱王龙'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('它成为了世界上魔攻最高的宠物'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('他还认得曾狗，看到他，烈火战神不再那么轻浮了'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('他变得更加稳重'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('他聚集神火之力，使用了魔焰瞬击，不仅造成了巨大伤害，还如虎添翼，给自己的魔攻又提升了一笔'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('复仇者曾大狗使用了石之伤，瞄准了烈火战神的唯一一个缺点：防御弱'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('烈火战神被打了140HP。他明白自己不是100%能取胜'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('但它的烈火之力最后终结了复仇者的邪念'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('---------------------------------------------'); for a:=1 to 120000000 do b:=1+2+3-4*5;
writeln('烈火战神的成长历程和战斗使命光荣完成'); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln(''); for a:=1 to 850000000 do b:=1+2+3-4*5;
writeln('感谢收看'); for a:=1 to 850000000 do b:=1+2+3-4*5;
readln;
end.
大小约9KB。

这些语句有什么意义？
这个程序的运行效果是什么？

意义：在屏幕上输出一行字，进行循环对变量B赋值，然后再输出一行字…
效果：输出一行字，通过循环赋值消耗的时间来做到延迟的效果，然后再输出一行字。
结论：写这个程序的人还没学到函数或是过程

WL