1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20
5 10 15 20 25
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
FOR I = 1 TO 5
FOR J = 1 TO 5
PRINT I * J,
NEXT J
PRINT
NEXT I
END SUB
No Comments