ac1007.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 11 行

program tju1007;
var
  a,s:longint;
begin
  repeat
    read(a);
    inc(s,a);
  until seekeof;
  writeln(s);
end.