Nhập vào mảng có giá trị cao nhất là 100 ,a có bao nhiêu số chia hết cho 3, b xuất ngược ra màn hình

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

      i, d, n: byte;

Begin

    Write('n = '); readln(n); d:=0;

    For i:=1 to n do

       Begin

           Write('a[', i, '] = '); readln(a[i]);

           If a[i] mod 3=0 then inc(d);

       End; 

   Writeln('co ', d, ' so chia het cho 3');

   Writeln('xuat nguoc mang: ');

   For i:=n downto 1 do write(a[i], '  ');

   Readln

End.

program bai_giai;

uses crt;

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

     n,i,d:byte;

begin

       clrscr;

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

       d:=0;

       for i:=1 to n do

              begin

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

                     if A[i] mod 3=0 then d:=d+1;

              end;

       writeln('a. Co ',d,' so chia het cho 3');

       write('Day nguoc la: ');

       for i:=1 to n do write(A[i],' ');

       readln;

end.