var n, number, counter, n_cache, m_cache: integer;
var n_text, m_text: string;

begin
  readln(n);
  counter := 0;

  Repeat
    readln(number);

    If number mod 2 = 0 Then begin
      n_cache := n_cache + number;
      n_text := n_text + number + ' ';
      end
    Else begin
      m_cache := m_cache + number;
      m_text := m_text + number + ' ';
      end;

    counter := counter + 1;
  Until n = counter;

  writeln(n_text + 'Сумма: ' + n_cache);
  writeln(m_text + 'Сумма: ' + m_cache);
end.