Wap to display 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 A; "IS ARMSTRONG"

ELSE

PRINT A; "IS NOT ARMSTRONG"

END IF

END