f x=putStrLn$"N="++show x++",A="++show(div(min(1+x)$div x 11+11)2) main=mapM f[1..99]