RosettaCodeData/Task/Integer-sequence/Action-/integer-sequence.action
2023-07-01 13:44:08 -04:00

10 lines
87 B
Text

PROC Main()
CARD i
i=0
DO
PrintF("%U ",i)
i==+1
UNTIL i=0
OD
RETURN