uses crt;
var n,i,d:integer;
A:array[1..100] of integer;
begin
clrscr;
write('Nhap n: '); readln(N);
d:=0;
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
if A[i] mod 2=0 then d:=d+A[i];
end;
write('Cac so la boi so cua 6: ');
for i:=1 to n do if A[i] mod 6=0 then write(A[i],',');
writeln;
write('Tong cac so chan: ',d);
readln
end.

uses crt;
var n,i,s,d: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap n: '); readln(n);
    d:=0; s:=0;
    write('Nhap mang: '); for i:=1 to n do begin
        read(a[i]);
        if (a[i] mod 2=0) then s:=s+a[i];
        if a[i] mod 6=0 then d:=1;
    end;
    if d=1 then begin
        write('Cac so la boi cua 6 la: ');
        for i:=1 to n do if a[i] mod 6=0 then write(a[i],' ');
        writeln;
    end;
    write('Tong cac so chan trong day la: ',s);
    readln
end.