var n:word;begin for n:=1to 99do
writeln('N=',n,',A=',min(n/22+5,n/2):1:0)end.