Armstrong or not

CLS
INPUT"Enter any  number";N
A = N
S = 0 
WHILE N < > 0 
R = N MOD 10 
S = S* 10 + R
N = N/ 10
WEND 
IF A = S THEN 
PRINT"The given no is armstrong"
ELSE 
PRINT" The given no is not armstong"
END IF 
END