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 number is armstrong"
ELSE
PRINT"The number is not armstrong"
ENDIF 
END