m:-between(1,99,N),\+format('N=~d,A=~d
',[N,min(N+1,11+N//11)//2]).