WAP using SUB procedure to print the series 1, 121, 12321, 1234321, 123454321

WAP using SUB procedure to print the series 1, 121, 12321, 1234321, 123454321

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A&=1
FOR I= 1 TO 5
PRINT A&^2
A&=(A&*10)+1
NEXT I
END


NOTE:
& in A& numeric variable makes it of LONG type. Long..........Non-floating-point numbers from -2,147,483,648 to 2,147,483,647

Examples of a Long Data Type: 560005, 3, -2, 0, -867000, 14, 8, -10