Cho 1 tệp văn bản dulieu.TXT có chứa các số nguyên thực hiện đọc dữ liệu từ tệp trên rồi tính tổng của các phần tử chia hết cho 5 có trong tệp trên,ghi kết quả vào tệp ketqua.TXT. Hộ em với ạ

uses crt;
var d:text; i,n,tong:longint; a:array[1..100000]of longint;
begin
clrscr;
   assign(d,'dulieu.txt');reset(D);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,'ketqua.txt');rewrite(D);
   writeln(d,'Tong cac so chia het cho 5:');
      for i:=1 to n do
         if a[i] mod 5=0 then inc(tong,a[i]);
      writeln(d,tong);
   close(d);
end.

program bai_giai;
var f,g:text;
    n,t:longint;
begin
    Assign(f,'dulieu.TXT');  reset(f);
    Assign(g,'dulieu.TXT');  rewrite(g);
    t:=0;
    while not eof(f) do
        begin
            read(f,n);
            if n mod 5=0 then t:=t+n;
        end;
    write(g,n);
    close(f); close(g);
end.