Program zad2a;
  var n,i,j,m:integer;
  a,b:array[1..20] of integer;
Begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  m:=0;
  for i:=1 to n do
    if a[i] mod 2=0 then
    begin
      m:=m+1;
      b[m]:=a[i];
    end;
  for i:=1 to m do
    writeln(b[i]);
End.
    