PRINT NATURAL NO FROM 1 TO 5(SUB)

DECLARE SUB SERIES()
CLS
CALL SERIES()
END

SUB SERIES()
FOR I = 1 TO 5
PRINT I
NEXT I
END SUB