QBasic Programming

To check whether the given number is armstrong or not

CLS
INPUT”Enter any number”;N
A=N
S=0
WHILE N < > 0
R=N MOD 10
S=S+R^3
N=N\10
WEND
IF A=S THEN
PRINT”The given number is armstrong “
ELSE
PRINT”The given number is not armstrong”
END IF