92. Qbasic Program to display 123454321, 1234321, 12321, 121, 1

Write a sub procedure to display 123454321, 1234321, 12321, 121, 1

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A# = 11111

FOR I = 1 TO 5

PRINT A# ^ 2

A# = A# \10

NEXT I

END SUB