'思路：设每个点的坐标为(i,j)，点的数值等于横坐标和纵坐标到边界的距离中最小的一个
DECLARE FUNCTION min (x, y)
CLS
INPUT n
p$ = STRING$(LEN(STR$(FIX(n / 2 + .5))), "#")
FOR i = 1 TO n
FOR j = 1 TO n
PRINT USING p$; min(min(i, j), min(n - i + 1, n - j + 1));
NEXT j
PRINT
NEXT i
END
FUNCTION min (x, y)
IF x > y THEN min = y ELSE min = x
END FUNCTION