Nhập vào số nguyên n tính tổng và in ra các số là bội của 3

program phuongt;
uses crt;
  var A: array[1..500] of integer;
        n, i: integer;
begin
       clrscr;
       write(‘Nhap n = ‘); readln(n);
       for i:=1 to n do
       begin
             write(‘A[‘, i, ‘] = ‘); readln(A[i]);
       end;
       write(‘Cac so la boi cua 3: ‘),
       for i:=1 to n do if A[i] mod 3 = 0 then write(A[i]:3);
       readln
end.