procedure main() t:=0 while a:=read()do t+:=a write(t) end