Qbasic Program to print 123454321, 1234321, 12321, 121, 1 [Hint: insert (;) at the end of PRINT a*a; to print in Horizontally] (SUB/Function)

OUTPUT

CLS
a = 11111
WHILE a <> 0
     PRINT a * a
     a = a \ 10
WEND
END

Using SUB Procedure

DECLARE SUB PATTERN()
CALL PATTERN
END

SUB PATTERN
     a = 11111
     WHILE a <> 0
          PRINT a * a

          a = a \ 10

     WEND
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION PATTERN()
p = PATTERN
END

FUNCTION PATTERN
     a = 11111
     WHILE a <> 0

          PRINT a * a

          a = a \ 10

     WEND
END FUNCTION