ac1007.pas

某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请不要用来作弊

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