program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var f:textfile;
a,sum:integer;
begin
assignfile(f,'chisla.txt');
reset(f);
while not eof(f) do //пока не кончится файл
   begin
     sum:=0;
     while not eoln(f) do //пока не кончится очередная строка
        begin
           read(f,a); //читаем числа
           sum:=sum+a; //складываем
        end;
    writeln(sum); //выводим сумму по очередному ряду
    readln(f); //переходим на следующую строку
   end;
readln
end.