Question

在PASCAL语言程序编译中输入了数据，如何再让程序继续运行，显示最终结果？

在PASCAL语言程序编译中输入了数据，如何再让程序继续运行，显示最终结果？
比如这个程序：
var x,y,s:integer;
begin
writeln('x=');read(x);
s:=0;
for y :=1 to x do
if x mod y=0 then s:=s+y;
write('x=',x,'s=',s)
end.
在编译中第一次输入x的值，如输入112，如何再让它继续编译运行，计算表达式：if x mod y=0 then s:=s+y，最终输出s的值？
谢谢大家!
我的意思是：在输入x的值后，不能直接显示s的值，需要再按什么键来输出最终s的结果？

Answer 1

这样:
var x,y,s:integer;
begin
writeln('x=');read(x);
s:=0;
for y :=1 to x do
if x mod y=0 then s:=s+y;
write('x=',x);
writeln('s=',s);
end.

Answer 2

再编译一遍
不行的话复制一下
用记事本复制啊