今天开博第一篇，呵呵

　　QQ空间和百度空间对代码支持不太好，只能这里好了。。。。。。

测试一下下：

program test;
Var
 rp:qword=0;
 begin
while rp<>0 do
  inc(rp);
end.

 

program test;
Var
 rp:qword=0;
begin
while rp<>0 do
  inc(rp);
end.