Cho tệp VD1.TXT chứa các số nguyên, thực hiện tính tổng các số nguyên đó. Sau đó, lưu kết quả tổng vừa tính được vào tệp VD2.TXT

#include <iostream>
#include <fstream>
using namespace std;
int main()
{
    int t=0;
    ifstream inp("VD.TXT");
    ofstream out("VD2.TXT");
    while (!inp.eof())
 {
  int n;
  inp >> n;
  t+=n;
 }
 out<<t;
 inp.close();
 out.close();
    //samon247
    return 0;
}

program bai_giai;
var f,g:text;
    n,t:longint;
begin
    Assign(f,'VIDU1.TXT');  reset(f);
    Assign(g,'VIDU2.OUT');  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.