一个程序员的绝笔－谁知道这段代码的运行结果重重有赏！

Question

结果不重要，关键在于调用的时候出了问题：
while true do
  running;

Answer 1

你是程序员吗？
这样的程序根本不会有结果！
你的杂念太重，生活也有语法，运用的越熟练，生活的越自由！
你可以有很多 “end;”
但只有一个“end.”

Answer 2

有多少begin就有多少end
处理得好（缩进），你的生活会井井有条（易读易改）。
处理得不好， 会让别人也难过。
：）

Answer 3

有多少begin就有多少end
处理得好（缩进），你的生活会井井有条（易读易改）。
处理得不好， 会让别人也难过。
：）

Answer 4

Me:=nil;
[Error] Unit1.pas(36): Incompatible types: 'Variant' and 'Pointer'

Answer 5

result:
 You == null 

Answer 6

function after(action:variant):variant;
var
  you,mm:variant;
  newmm:variant;
begin
  mm:=you."dear mm";
  if action='忘记、潇洒、奋起' then
    newmm:=MM.Create(self);
    mm.'以前我错了！给我个机会'
    you.LookUpSky
    you.SetMM(newmm);
  else if action='喝酒、消沉、堕落‘then
    mm.GoTo('酒馆');
    mm.Look(you,'嘲笑’);
    mm.say('当初的决定真正确');
  end if
  
  if you  is '男人’ then
    you.Remove('逃避');
  end if

Answer 7

n=b d
sh d b f

Answer 8

function Runing:Variant;
var Me:variant;i:integer;
begin
  Me:=nil;
  Me:=Me+'某软件公司骨干';
  Me:=Me+'Dear MM';
  for i:=1 to 365 do
  begin
    if i='节假日' then Me:=Me+’Dear MM’；
    if i='工作日' then Me:='工作'；
    if i='狂欢日' then Me:=Me+'another MM'；
    if i='休息日' then Me:=Me+'game'；
  end;
  Me:='快乐的Me';
  Result:='精彩的生活'；
  Me.bp:='95808-16687';
  Me.Email:='[email protected]';
end;

Answer 9

ShowMessage('谢谢大家的支持。');
ShowMessage('SOHU的信箱太次了!');
Me.Email:[email protected];