Cho mảng a gồm n a1 a2 ... an số nguyên hãy tính tổng các số dương chia hết cho 3

uses crt;
var A:array[1..1000] of integer;
    N,i,dem:integer;
begin
   clrscr;
   write('Nhap N: '); readln(N);
   for i:=1 to N do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 3 = 0 then inc(dem);
   end;
   writeln('So luong so chia het cho 3 la: ',dem);
   readln
end.

uses crt;

var a : array[1 .. 100] of integer;

i, s, n : integer;

begin

clrscr; s := 0;

write('Nhap so phan tu : '); readln(n);

for i :=1 to n do

begin

write('Nhap so thu ', i ,' : '); readln(a[i]);

if (a[i] mod 3 = 0) and (a[i] > 0) then s := s + a[i];

end;

write('Tong = ', s);

readln

end.