Hãy đếm xem có bao nhiêu số lẻ chia hết cho 3 trong N số tự nhiên (em đang cần liền mn ơi)

uses crt;
var n,i,dem:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         if(a[i] mod 3=0)then inc(dem);
        end;
  write('co ',dem,' so chia het cho 3');
 readln;
end.

Program baitap;
Uses crt;
Var  A:array[1..100] of integer;

        N,i,dem:integer;
Begin
Clrscr;
Write('N='); Readln(N);
dem:=0;
For i:=1 to N do

     Begin

     Write('Nhap so thu ',i,':');

     Readln(A[i]);

     If (A[i] mod 2=1) and (A[i] mod 3=0) then dem:=dem+1;

     End;
Writeln('Co ',dem,' so le chia het cho 3');
Readln
End.