While + Counter










var

 

 bil: integer;

 jml: integer;

 

begin

 

 jml := 0;

 

 while not eof(input) do

 begin

   readln(bil);

   jml := jml + bil;

 end;

 

 writeln(jml);

 

end.