CLS
INPUT "Enter a 3 digit number"; N
A = N
WHILE N <> 0
R = N MOD 10
AR = AR + R ^ 3
N = N \ 10
WEND
IF AR = A THEN
PRINT "It is Armstrong"
ELSE
PRINT "It is not Armstrong"
END IF
END
note: armstrong number is 3 digit number which is equal to the sum of cube of each digit