Giúp e với e đang cần gấp!! Tạo mảng A gồm n (n≤100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội số của 3 và 9.

Program FNG;
Uses crt;
Var A: array[1..100] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 9 = 0 then s:=s+A[i];
        End;

        Write('S = ',s);
        Readln
End.

1 số chia hết cho 9 thì số đó cũng chia hết cho 3, nên mình làm 2 bản.

* Bản 1 (đúng theo đề):

uses crt;
var n,i,s:longint; a:array[1..100]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do 
      begin
         readln(a[i]);
         if (a[i] mod 3=0) and (a[i] mod 9=0) then inc(s,a[i]);
      end;
   writeln(s);
readln;
end.

* Bản 2 (theo quy luật):

uses crt;
var n,i,s:longint; a:array[1..100]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do 
      begin
         readln(a[i]);
         if a[i] mod 9=0 then inc(s,a[i]);
      end;
   writeln(s);
readln;
end.