مربع جادویی

مربع جادویی
به ورودی این برنامه طول ضلع مربع را میدهیم البته باید عددی فرد باشد
مثلا ما عدد سه را وارد می کنیم خروجی ان برنامه یک مربع سه در سه خواهد بود که اعداد داخل خانه ها را هرگونه جمع کنید یک عدد ثابتی می شود
CLS
c = 1
INPUT n
OPTION BASE 0
DIM a(n + 1, n + 1)
IF n MOD 2 = 0 THEN END
b = n 2 + 1
a(c, b) = 1
FOR i = 2 TO n ^ 2
        c = c - 1: b = b + 1
        IF a(c, b) = 0 THEN
                IF c = 0 THEN k = c: c = n
                IF b = n + 1 THEN
                        q = b: b = 1
                END IF
                IF a(c, b) > 0 THEN c = k + 2: b = q - 1
        ELSE
                c = c + 2
                b = b - 1
        END IF
a(c, b) = i
NEXT i
FOR i = 1 TO n
        FOR j = 1 TO n
                PRINT USING "####"; a(i, j);
        NEXT
PRINT
PRINT
NEXT
END