WAP to check weather the given number is armstrong or not

CLS

INPUT " Enter any number ";N

A = N 

S = 0

WHILE N <> 0

R = N MOD 0

S = S + R ^ 3

WEND

IF A = S THEN

PRINT " The given number is

armstrong "

ELSE

PRINT " The given number is not armstrong "

END IF

END