Qbasic. , ! дано целое число n (n> 0). проверить, является ли оно степенью числа 2

DIM N#, A#
CLS
INPUT "N = ", N
A = 1
WHILE (A < N)
A = A * 2
WEND
IF A = N THEN
PRINT "DA"
ELSE
PRINT "NET"
END IF
END