Program to check whether the given no is Armstrong number or not using FUNCTION

DECLARE FUNCTION ARM(N)
CLS
INPUT"ENTER ANY NUMBER";N
A=P
P=ARM
IF A=P THEN
PRINT"The given no is armstrong"
ELSE
PRINT"The given no is not armstrong"
END IF
END

FUNCTION ARM(N)
S=0
WHILE N<>0
R=N MOD 10
S=S+R^3
N=N\10
WEND
ARM=S
END FUNCTION