Lập chương trình viết bằng tệp tính tổng tất cả số hạng chia hết cho 3😘😘😘😘((((5 sao liền ))

var f: text;

      T: longint;

      A: integer;

Begin

     Assign(f, 'abcd.xyz'); reset(f);

    T:=0;

    While not eof(f) do

       Begin

             Read(f, a);

             If a mod 3 = 0 then t:=t+a;

       End;

   Write('tong la: ', t);

   Readln

End.

var   fi,fo: text;
      i,tong: integer;
begin
     
      assign(fi,'File.inp');
     
      reset(fi);
     
          while not eof(fi)  do
         
                begin
              
                   readln(fi,i);
                  
                   If i mod 3 = 0 then tong:=tong+i;
                 
                 end;
           
       close(fi);
      
       assign(fo,'File.out');
      
       rewrite(fo);
      
          write(fo,tong);    

        close(fo);
          
end.