今天开博第一篇，呵呵

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

测试一下下：

1 program test;
2 Var
3  rp:qword=0;
4  begin
5 while rp<>0 do
6   inc(rp);
7 end.

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

【推广】免费学中医，健康全家人

原文地址：https://www.cnblogs.com/htfy/p/1916275.html