如何用pascal编一个‘A'在跑

设一个二维数组，里面放上由‘*’组成的A 让后用for循环一次多输个空格