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