11 lines
248 B
Text
11 lines
248 B
Text
|
proc nonrec main() void:
|
||
|
|
byte i;
|
||
|
|
for i from 1 upto 100 do
|
||
|
|
if i % 15 = 0 then writeln("FizzBuzz")
|
||
|
|
elif i % 5 = 0 then writeln("Buzz")
|
||
|
|
elif i % 3 = 0 then writeln("Fizz")
|
||
|
|
else writeln(i)
|
||
|
|
fi
|
||
|
|
od
|
||
|
|
corp
|