program baitap;

uses crt;

type Mang1C = array [ 1 .. 10000 ] of Longint;

var i, n : Longint;

      a : Mang1C;

function Tong : Integer;

begin

   Tong := 1; 

   For i := 1 to n Do

      if ( a[ i ] mod 2 = 0 ) then

         Tong := Tong * a[ i ];

end;

begin

    clrscr;

    readln( n );

    for i := 1 to n do 

       readln( a[ i ] );

   write( Tong );

    readln;

end. // Xong 

program bai_giai;
uses crt;
var a:array[1..10000] of integer;
    n,i,tich:longint;
begin
    clrscr;
    readln(n);
    tich:=1;
    for i:=1 to n do
        begin
            read(a[i]);
            if a[i] mod 2=0 then tich:=tich*a[i];
        end;
    write(tich);
    readln;
end.