cho tệp baitap.txt trên đĩa D:\ chứa các số 1 3 5 7 9. viết chương trình đọc tệp trên và tính tổng các số nguyên lưu trong tệp

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.