QBASIC Program to print the pattern 11111, 1111, 111, 11, 1 (SUB/FUNCTION)

OUTPUT

CLS
n = 11111
FOR i = 1 TO 5
     PRINT n
     n = n \ 10
NEXT i
END

Using SUB Procedure

DECLARE SUB pattern() CLS
CALL pattern
END

SUB pattern
n = 11111
FOR i = 1 TO 5
     PRINT n
     n = n \ 10
NEXT i
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
d = pattern
END

FUNCTION pattern
n = 11111
FOR i = 1 TO 5
     PRINT n
     n = n \ 10
NEXT i
END FUNCTION