program Cau2;
var
  N, i, j, temp, S, num: integer;
  A, primeNumbers: array[1..50] of integer;
begin
  assign(input, 'cau2.inp');
  assign(output, 'cau2.out');
  reset(input);
  rewrite(output);

  readln(N);

  // Đọc dãy A
  for i := 1 to N do
    read(A[i]);

  // Tìm số nguyên tố và tính tổng theo yêu cầu
  S := 0;
  num := 0;
  for i := 1 to N do
  begin
    if A[i] > 0 then
    begin
      S := S + A[i] * A[i];
      if A[i] > 1 then
      begin
        if A[i] = 2 then
          primeNumbers[num + 1] := A[i]
        else if A[i] mod 2 <> 0 then
        begin
          if A[i] > 2 then
          begin
            if A[i] = 3 then
              primeNumbers[num + 1] := A[i]
            else
            begin
              primeNumbers[num + 1] := A[i];
              Inc(num);
            end;
          end;
        end;
      end;
    end;
  end;

  // Sắp xếp dãy A theo thứ tự giảm dần
  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if A[i] < A[j] then
      begin
        temp := A[i];
        A[i] := A[j];
        A[j] := temp;
      end;

  // Ghi kết quả vào file cau2.out
  for i := 1 to num do
    write(primeNumbers[i], ' ');
  writeln;
  writeln(S);
  for i := 1 to N do
    write(A[i], ' ');

  close(input);
  close(output);
end.