QBASIC PROGRAM TO PRINT NATURAL NO. FROM 1 TO 15 USING SUB.

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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