Nhập một dãy A gồm N số nguyên từ tệp DULIEU.INP (N<=120).Hãy tính tổng các số chia hết cho 3 trong dãy và cho kết qua ra DULIEU.OUT

program bai_giai;
var f,g:text;
    A:array[1..120] of integer;
    n,i,t:integer;
begin
    Assign(f,'DULIEU.INP'); reset(f);
    Assign(g,'DULIEU.OUT'); rewrite(g);
    readln(f,n);
    for i:=1 to n do read(f,A[i]);
    t:=0;
    for i:=1 to n do
        if A[i] mod 3=0 then t:=t+A[i];
    write(g,t);
    close(f); closE(g);
end.

uses crt;
var f,g:text;
       a:array[1..120] 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.