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