Viết chương trình nhập n số nguyên.Đếm các số vừa chia hết cho 2 vừa chia hết cho 3.Xuất kết quả ra màn hình

program chia_het_2_3;

uses crt;

var A:array[1..1000] of integer;

      n,i,t:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                     if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];

              end;

       write(‘Tong cac so vua chia het cho 2 vua chia het cho 3 la: ‘,t);

       readln;

end.