Armstrong number using sub

Armstrong number using sub procedure.

DECLARE SUB A(N)

CLS

INPUT"ENTER ANY NO";N

CALL A(N)

END

SUB A(N)

S=0

A=N

WHILE N<>0

R=N MOD 10

S=S+R^3

N=N\10

WEND

IF A=S THEN

PRINT"THE GIVEN NO. IS ARMSTRONG"

ELSE

PRINT"THE GIVEN NO. IS NOT ARMSTRONG"

END IF

END SUB