program main implicit none integer*8::N read *,N print '(i0)', (N/2+1)*(N-(N/2)+1)-1 end program main