113. Qbasic program to generate the series: 81, 64, 49, ......1

113. Write a to generate the series: 81, 64, 49, ......1

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES ( )

FOR I = 9 TO 1

PRINT I ^ 2

NEXT I

END SUB