program main
    implicit none
    integer i,j,k, limit, limit2
    double precision x1y2, x2y1
    double precision :: s,x1,y1,x2,y2
    
    x1 = 0.d0
    y1 = 0.d0
    x2 = 0.d0
    y2 = 0.d0

    read*, s
    print*, log10(s)
    if(s>1.d18)then
        stop 's is too large'
    endif
    

    x1y2 = s
    x2y1 = 0
    do
        limit = int(dble(x1y2)/1d9) + 1
        limit2 = int(dble(x2y1)/1d9) + 1
        do i = limit, 1000000000
            if (mod(x1y2,real(i)) == 0)then
                x1 = i
                y2 = x1y2/i
                do j = limit2,1000000000
                    if(mod(x2y1, real(j)) == 0) then
                        x2 = j
                        y1 = x2y1/j
                        call output()
                    endif
                enddo
            endif
        enddo
        x1y2 = x1y2 + 1
        x2y1 = s - x1y2
    enddo


contains
    subroutine output()
        implicit none
        character(:), allocatable :: format_output
        
        format_output = '(i0,1x, i0,1x, i0,1x, i0,1x, i0,1x, i0)'
        print format_output, 0, 0, int(x1), int(y1), int(x2), int(y2)
        stop
    end subroutine output
end program main