Qbasic program to check armstrong number

CLS
DIM N%,NUM%,D%,A%
INPUT"ENTER ANY NUMBER";N
NUM=N
WHILE N > 0
D = N MOD 10
A = A + D ^ 3
N=N\10
WEND

IF A=NUM THEN
    PRINT"ARMSTRONG NUMBER"
ELSE
  PRINT"NOT ARMSTRONG NUMBER"
END IF

QBASIC PROGRAM TO CHECK STRONG NUMBER

CLS
DIM N AS INTEGER,NUM AS INTEGER,D AS INTEGER,S AS INTEGER

INPUT"ENTER ANY NUMBER";N
NUM=N
F=1
WHILE N>0
D=N MOD 10
    WHILE D>0
      F=F*D
      D=D-1
    WEND
S=S+F
F=1
N=N\10
WEND

IF S=NUM THEN
    PRINT"STRONG NUMBER"
ELSE
    PRINT"NOT STRONG NUMBER"
END IF

END

Program in qbasic to check binary or not

CLS
DIM N AS INTEGER,D AS INTEGER
INPUT"ENTER ANY NUMBER";N
WHILE N>0

D=N MOD 10

IF D< >0 THEN
       IF D< >1 THEN
             PRINT"NOT BINARY NUMBER"
             END
       END IF
END IF

WEND
PRINT"BINARY NUMBER"
END