13 lines
286 B
Text
13 lines
286 B
Text
|
# straight-forward modulo tester
|
||
|
|
procedure main()
|
||
|
|
every i := 1 to 100 do
|
||
|
|
if i % 15 = 0 then
|
||
|
|
write("FizzBuzz")
|
||
|
|
else if i % 5 = 0 then
|
||
|
|
write("Buzz")
|
||
|
|
else if i % 3 = 0 then
|
||
|
|
write("Fizz")
|
||
|
|
else
|
||
|
|
write(i)
|
||
|
|
end
|