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

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.