QBasic ile Girilen matrisin birim matris olup olmadığını gösteren program

'birim matris olup olmama
CLS
INPUT "n*n lik matrisin boyutunu giriniz", n
DIM a(n, n)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT a(i, j)
NEXT j
NEXT i
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT j
PRINT
NEXT i
s = 1
FOR i = 1 TO n
FOR j = 1 TO n
IF i <> j THEN
IF a(i, j) <> 0 THEN
s = 0
END IF
ELSE
IF a(i, j) <> 1 THEN
s = 0
END IF
END IF
NEXT j
NEXT i
IF s = 1 THEN
PRINT "birim matris"
ELSE
PRINT "birim matris degil"
END IF