QBASIC Program to print the pattern 5, 54, 543, 5432, 54321 (SUB/FUNCTION Procedure)

OUTPUT

CLS
FOR i = 5 TO 1 STEP -1
     FOR j = 5 TO i STEP -1
          PRINT j;

     NEXT j
     PRINT
NEXT i
END

Using SUB Procedure

DECLARE SUB pattern()
CLS
CALL pattern
END

SUB pattern
FOR i = 5 TO 1 STEP -1
     FOR j = 5 TO i STEP -1
          PRINT j;

     NEXT j
          PRINT

     NEXT i
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
p = pattern
END

FUNCTION pattern
FOR i = 5 TO 1 STEP -1
     FOR j = 5 TO i STEP -1
          PRINT j;

     NEXT j
          PRINT

     NEXT i
END FUNCTION