把现在这个程序做成子程桥哗序，然后在主程序敏洞行用while/颤迅until或者do/repeat循环，另外设置个退出条件（例如变量）就行
你可以在程序段外围加上循环代码姿宽猜巧镇，迹型示例如下：
program xx;
var x,a,b,c,d: integer;
begin
while(x<>9999999) do
begin
readln(x);
...........
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024