-module a.
-export[m/0].
m()->[io:format("N=~p,A=~p
",[N,trunc(lists:min([N/11+11,N+1])/2)])||N<-lists:seq(1,99)].