var x,somma: integer begin somma:= 0; while not eoln do begin read(x); somma:= somma + x; end; writeln(somma); end.