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