18 lines
257 B
Text
18 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
|