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