integer::N read *,N print '(i0)', N/(2-MOD(N,2)) end program