● WAP To check 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 number is Armstrong "
ELSE
PRINT " The number is not Armstrong "
END IF
END