11 lines
207 B
Text
11 lines
207 B
Text
DO i = 1, 100
|
|
IF( MOD(i, 15) == 0 ) THEN
|
|
WRITE() "FizzBuzz"
|
|
ELSEIF( MOD(i, 5) == 0 ) THEN
|
|
WRITE() "Buzz"
|
|
ELSEIF( MOD(i, 3) == 0 ) THEN
|
|
WRITE() "Fizz"
|
|
ELSE
|
|
WRITE() i
|
|
ENDIF
|
|
ENDDO
|