QBASIC PROGRAM TO PRINT NATURAL NUMBERS 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