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 mang;

uses crt;

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

      n,i,d: byte;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

                  write('A[',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('b) Day in nguoc: ');

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

         readln;

End.