Составьте программу для данной матрице- QBasic(Бейсик)

1 0 ... 0 1
0 1 ... 1 0
. . ... . .
0 1 ... 1 0
1 0 ... 0 1

DEFINT A-Z
n = 6
DIM A(n, n)
CLS
FOR iy = 1 TO n: FOR ix = 1 TO n
 IF ix = iy OR ix = n - iy + 1 THEN A(ix, iy) = 1
 PRINT A(ix, iy);
NEXT: PRINT : NEXT