Program Task_2;
Var
a : array [1..10000] of integer;
i,n : integer;
Begin

read(n);
for i := 1 to n do
   begin
       read(a[i]);
       if (a[i] mod 2 = 0) then
          write(a[i], ' ');
   end;

End.