var arr: array[1..100] of integer;
n, index: byte;
Sum: integer;
begin
Writeln('Nhap so phan tu mang');
Readln(n);
Sum := 0;
for index := 1 to n do begin
readln(arr[index]);
If (arr[index] mod 2 0) and (arr[index] mod 3 = 0) then
Sum := arr[index];
End;
Writeln(sum);
end.
