program main implicit none integer::N,i read *,N ! if(N.eq.1) then ! do ! end do ! end if print '("1")' end program main