CLS
DO
  INPUT n
LOOP UNTIL n mod 2 = 1
i = 1
j = n
DIM a(n, n)
FOR x = 1 TO n * n
  a(i, j) = x
  i = i + 1
  j = j + 1
  IF j > n OR i > n THEN
     IF x - (n * n) \ 2 <= (n \ 2) THEN
       b = b + 1
       j = j - b - 1
       i = 1
     ELSE
       b = b - 1
       i = i - b - 1
       j = 1
     END IF
  END IF
  IF x = n * n THEN i = n: j = n
NEXT x
FOR i = 1 TO n
  FOR j = 1 TO n
    PRINT USING "####"; a(i, j);
  NEXT j
  PRINT
NEXT i
END

加分加分加分