WAP to generate the series 50,75,100 ,125, 150

Qbasic program to generate the series : 50, 75 ,100 ,125 ,150

 CLS
 FOR I = 50 TO 150 STEP 25
 PRINT I,
 NEXT I
 END

USING SUB

DECLARE SUB SERIES
 CLS
 CALL SERIES
 END
 
 SUB SERIES
 FOR I = 50 TO 150 STEP 25
 PRINT I,
 NEXT I
 END SUB