implicit none integer(8) N read(*,*) N write(*,*) N-1 end