# [Wolfram Language (Mathematica)], 68 bytes
StringTrim[#<>"
"&/@Array["A"&,{x=Divisors@#~Quantile~.5,#/x}]<>""]&
[Try it online!][TIO-jrb2oyeo]
[Wolfram Language (Mathematica)]: https://www.wolfram.com/wolframscript/
[TIO-jrb2oyeo]: https://tio.run/##y00syUjNTSzJTE78n2b7P7ikKDMvPaQoMzda2cZOiUtJTd/BsagosTJayVFJTae6wtYlsyyzOL@o2EG5LrA0Ma8kMye1Ts9UR1m/ojYWqEMpVu1/moOhqYK@vkIA0KyS/wA "Wolfram Language (Mathematica) – Try It Online"