RosettaCodeData/Task/Loops-N-plus-one-half/Basic09/loops-n-plus-one-half.basic
2023-07-01 13:44:08 -04:00

8 lines
135 B
Text

PROCEDURE nAndAHalf
DIM i:INTEGER
FOR i:=1 TO 10
PRINT i;
EXITIF i=10 THEN ENDEXIT
PRINT ", ";
NEXT i
PRINT