program reshef ;
const 
  Size = 30 ;
type 
  Arraytype = Array (1..Size) of integer ;
var
  I, CountDiv2, CountDiv3 : integer ;
  A(I), Div2, Div3 : Arraytype ;
begin
    CountDiv2 := 0 ;
    CountDiv3 := 0 ;
for I := 1 to Size do
  begin
    readln (A(I);
    if (A(I) mod 2 = 0) then  
                                     begin
                                        CountDiv2 := CountDiv2 + 1 ;
                                        DIV2(CountDiv2) := A(I) ;
                                     end
                                   else
                                     if (A(I) mod 3 = 0) then
                                                                      begin
                                                                         CountDiv3 := CountDiv3 + 1 ;
                                                                         Div3(CountDiv3) := A(I) ;
                                                                      end;
end.