program h247; var f: text; n, tong: integer; begin assign(f, 'D:\baitap.txt'); reset(f); while not eof(f) do begin read(f, n); tong:=tong+n; end; Write('Tong cac so la ', tong); readln; end.
program bai_giai; var f,g:text; n,t:integer; begin Assign(f,'D:\baitap.txt'); reset(f); Assign(g,'D:\ketqua.txt'); rewrite(g); t:=0; while not eof(f) do begin read(f,n); t:=t+n; end; write(g,t); close(f); close(G); end.