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