8 8 8 8 8 8 8 8
6 6 6 6 6 6
4 4 4 4
2 2
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
T = 10
FOR I = 8 TO 1 STEP -2
PRINT TAB(T);
FOR J = 1 TO I
PRINT I;
NEXT J
T = T + 3
NEXT I : END SUB
No Comments