program sample
    implicit none
    character(100)::s,t
    integer(8) :: i,j,k,m,n
    integer(8)::a,b,c,d
    integer(8),allocatable::x(:),y(:)
  
    read(*,*) n
    allocate(x(n),y(n))
    read(*,*)x
    call msort(x)
    y(:)=x(:)
    a=n/2
    b=n/2
if(x(n)>0 .and. x(1)<0)then
    do i=1,n
        if(x(i)>=0)then
            a=i-1
            exit
        end if
    end do
    do i=a+1,n-1
        x(1)=x(1)-x(i)
    end do
    do i=1,a
       
        x(n)=x(n)-x(i)
    end do
    write(*,*)x(n)
    x(1)=y(1)
    x(n)=y(n)
    do i=a+1,n-1
        write(*,*)x(1),x(i)
        x(1)=x(1)-x(i)
    end do
    do i=1,a
        write(*,*)x(n),x(i)
        x(n)=x(n)-x(i)
    end do
    
elseif(x(n)<=0)then
    write(*,*)-1*sum(x)+x(n)*2
    do i=1,n-1
        write(*,*)x(n),x(i)
        x(n)=x(n)-x(i)
    enddo
elseif(x(1)>=0)then
    write(*,*)sum(x)-x(1)*2
    do i=2,n-1
        write(*,*)x(1),x(i)
        x(1)=x(1)-x(i)
    end do
    write(*,*)x(n),x(i)
end if
    
   
    stop
    contains
    recursive subroutine msort(x)
    implicit none
    integer(8), intent(inout) :: x(:)
 
    integer(8) :: n, mid, i, j, k
    integer(8), allocatable :: tmp(:)
    
    n = size(x)
    
    if(n == 1) then
      return
    end if
 
    !
    ! 前半と後半に分けてソート
    ! 1~midとmid+1~nをそれぞれソート済みにする
    !
    mid = n / 2
    call msort(x(:mid))
    call msort(x(mid+1:))
 
    !
    ! tmpという配列にxを一時的に保管
    ! マージソートは外部ソート
    !
    allocate(tmp(n))
    tmp = x
 
    ! tmpの後半部分を左右反転
    do k = n, mid+1, -1
      tmp(k) = x(mid + n - k + 1)
    end do
 
    ! iは前半のリストのうちまだ見ていないものの最小値
    ! jは後半のリストのうちまだ見ていないものの最小値
    ! kは見た回数の合計
    i = 1
    j = n
 
    do k = 1, n
      !
      ! 一番左と一番右のうち小さい方をxに入れていく
      ! ここが等号つき不等号なので、安定ソートとなる
      !
      if(tmp(i) <= tmp(j)) then
        x(k) = tmp(i)
        i = i + 1
      else
        x(k) = tmp(j)
        j = j - 1
      end if
    end do
    
    deallocate(tmp)
    return
  end subroutine msort
end program sample
  

