40
38 40
36 38 40
34 36 38 40
32 34 36 38 40
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
A = 40
FOR I = 1 TO 5
B = A
FOR J = 1 TO I
PRINT B;
B = B + 2
NEXT J
PRINT
A = A - 2
NEXT I : END SUB
No Comments