integer(KIND=8)::N read*,N print*,MOD(N,2) end