To display the armstrong

                                           WAP to display 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 number is armstrong"

ELSE

PRINT" The number is not armstrong"

END IF 

END