在TP中实现程序执行完dos窗口不关闭（附源码）

主要就是在主程序外套一个无限循环，让主程序执行完一遍再立即执行第二遍。（当然，主程序里是要有一个read函数啦！）这样，就可以实现TP编译的程序实现程序计算完dos窗口不关闭。


program aaa (input,output);
var
i:integer;
//声明部分
begin
for i:=1 to 5 do
begin
 i := i+i;
//正式过程
end ;
end .