10 lines
248 B
Text
10 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
|