QBASIC PATTERN: 5,54,543,5432,54321

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

DECLARE SUB PAT()
 CLS
 CALL PAT
 END
 
 SUB PAT
 FOR I = 5 TO 1 STEP -1
 FOR J = 5 TO I STEP -1
 PRINT J;
 NEXT J
 PRINT
 NEXT I
 END SUB