Print natural no from 1to 5 using sub

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

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