用delphi来写一个推断题

Question

请各位高手发挥想像力!
推断出或证明外星人是否存在的软件应该怎么写？

Answer 1

var
i:=0;
beginwhile i<=10begin
showmessage('外星人是存在的！');
i=i+1;if i>10 then
i:=0;
end;

Answer 2

if (楼主 存在) then ShowMessage("外星人已经存在了");

Answer 3

以下函数为真时, 外星人存在
function 外星人(楼主: integer): Boolean;
var
 i,j,k: integer;
begin 
  result:=false;
  for i:=1 to 100000000 do begin
    for j:=1 to i*100 do begin
      for k:=1 to i*j*10 do begin
        if 楼主=i*j*k then 
        begin 
          result:=true;
          exit;
        end;
      end;
    end;
  end;
end;