Đọc ghi file bài sau: nhập vào một mảng n số nguyên,tính tổng các số chia hết cho 3 trong mảng. DULIEU.INP gồm n số nguyên và các phần tử có trong mảng,DULIEU.OUT ghi ra kết quả của tổng

uses crt;
var f,g:text;
       a:array[1..1000000] of longint;
       n,i,s:integer;
begin
       clrscr;
       assign(f,'DULIEU.INP'); reset(f);
       assign(g,'DULIEU.OUT'); rewrite(g);
       readln(f,n);
       s:=0;
       for i:=1 to n do 
              begin
                     readln(f,a[i]);
                     if a[i] mod 3=0 then s:=s+a[i];
              end;
       write(g,s);
       close(f); close(g);
       readln;
end.

uses crt;
var f:text; i,n,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
   assign(f,'DULIEU.INP');reset(f);
      readln(f,n);
      for i:=1 to n do 
         begin 
            read(f,a[i]);
            if a[i] mod 3=0 then inc(s,a[i]);
         end;  
   close(f);
   assign(f,'DULIEU.OUT');rewrite(f);
      writeln(f,s);
   close(f); 
end.