RosettaCodeData/Task/Loops-N-plus-one-half/Basic09/loops-n-plus-one-half.basic

9 lines
135 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
PROCEDURE nAndAHalf
DIM i:INTEGER
FOR i:=1 TO 10
PRINT i;
EXITIF i=10 THEN ENDEXIT
PRINT ", ";
NEXT i
PRINT