Armstrong

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 no is Armstrong
ELSE
PRINT “The given no is not Armstrong
END IF
END