var f:text; i,n,sum,x:integer; begin // assign(f,'input.txt'); reset(f); //Это считывание из файла input формата .txt readln(f,n); close(f); // {readln(n); for 1 to n do begin read(x);} for i:=1 to n do begin read(f,x); sum:=sum+x; end; writeln(sum); end.