My journey with JM

Programs to vheck whether the number is armstong 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