QBASIC PATTERN: 55555 5555 555 55 5

  55555
  5555
  555
  55
  5

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

USING SUB

DECLARE SUB PAT()
 CLS
 CALL PAT
 END
 
 SUB PAT
 A = 55555
 FOR I = 1 TO 5
 PRINT A;
 A = A \ 10
 NEXT I
 END SUB