for(n in 1:99)cat("N=",n,",A=",min(n/11+11,n+1)%/%2,sep="","
")