QBASIC Program to Print the Display the Numeric Series 55555, 5555, 555, 55, 5 (SUB/FUNCTION Procedure)

CLS
n = 55555
FOR I = 1 TO 5
     PRINT n;
     n = n \ 10
NEXT I
END

Using SUB Procedure

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES
     n = 55555
     FOR I = 1 TO 5
          PRINT n;

     n = n \ 10
     NEXT I
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION SERIES()
CLS
s = SERIES
END

FUNCTION SERIES
     n = 55555
     FOR I = 1 TO 5
          PRINT n;

          n = n \ 10

     NEXT I
END FUNCTION