17 lines
257 B
Text
17 lines
257 B
Text
PROGRAM FIZZ_BUZZ
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
BEGIN
|
|
FOR A=1 TO 100 DO
|
|
IF A MOD 15=0 THEN
|
|
PRINT("FizzBuzz")
|
|
ELSIF A MOD 3=0 THEN
|
|
PRINT("Fizz")
|
|
ELSIF A MOD 5=0 THEN
|
|
PRINT("Buzz")
|
|
ELSE
|
|
PRINT(A)
|
|
END IF
|
|
END FOR
|
|
END PROGRAM
|