cho dãy A gồm a1,a2,-.an và N là số nguyên dương. 3 chia hết cho số nào trong dãy trên

uses crt;
var n,i:longint; a:array[1..10000]of longint;
begin
clrscr;
   write(‘N=’);Readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
      end;
   for i:=1 to n do if 3 mod a[i]=0 then writeln(a[i]);
readln
end.