写一个pascal程序

program sum_Hewr;

var
tmp,sum:int64;

begin
sum:=0;
while not eof do begin
read(tmp);
inc(sum,tmp);
if eoln then readln;
end;
writeln(sum);
end.

不确定多少个数的话应该用到数组来解决，暂时还不会，过些日子就行了

n的值会输入吗？
会就超简单了啊
不会的话读入部分就要用eof或者eoln了，麻烦的

请问输入时是一行输入完毕还是每输入一个换一行
两者是不同的
如果是前者我会做！