uses crt;
var n,i,s,tich:integer;
    A:array[1..100] of integer;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        s:=0;
        tich:=1;
                for i:=1 to n do
                        begin
                                write('A[',i,']=');
                                readln(A[i]);
                                if A[i] mod 2=0 then s:=s+A[i];
                                if A[i] mod 3=0 then tich:=tich*a[i];
                        end;
        writeln('Tong cac so chan trong day: ',s);
        write('Tich cac so chia het cho 3: ',tich);
        readln
end.