10 lines
305 B
Text
10 lines
305 B
Text
begin new i; label iLoop;
|
|
i <- 0;
|
|
iLoop: if [ i <- i + 1 ] <= 100 then begin
|
|
out if i mod 15 = 0 then ( "Fizz", "Buzz" )
|
|
else if i mod 5 = 0 then "Buzz"
|
|
else if i mod 3 = 0 then "Fizz"
|
|
else i;
|
|
goto iLoop
|
|
end else 0
|
|
end $
|