QBASIC PATTERN : 11111 , 1111 , 111 , 11 , 1

11111
1111
111
11
1

CLS
 A = 11111
 FOR I = 1 TO 5
 PRINT A
 A = A  10
 NEXT I
 END

USING SUB

DECLARE SUB PATTERN()
 CLS
 CALL PATTERN
 END
 
 SUB PATTERN
 A = 11111
 FOR I = 1 TO 5
 PRINT A
 A = A  10
 NEXT I
 END SUB