CLS

N = 1

FOR I = 1 TO 500

A = N

S = 0

WHILE A <> 0

R = A MOD 10

S = S + R ^ 3

A = A \ 10

WEND

IF N = S THEN PRINT N,

N = N + 1

NEXT I

END

USING SUB PROCEDURE

DECLARE SUB ARM ( )

CLS

CALL ARM

END

SUB ARM

N = 1

FOR I = 1 TO 500

A = N

S = 0

WHILE A <> 0

R = A MOD 10

S = S + R ^ 3

A = A \ 10

WEND

IF N = S THEN PRINT N,

N = N + 1

NEXT I

END SUB

## No Comments