15 lines
321 B
Text
15 lines
321 B
Text
begin
|
|
integer i;
|
|
for i := 1 step 1 until 100 do
|
|
begin
|
|
boolean fizzed;
|
|
fizzed := 0 = mod(i, 3);
|
|
if fizzed then
|
|
outtext("Fizz");
|
|
if mod(i, 5) = 0 then
|
|
outtext("Buzz")
|
|
else if not fizzed then
|
|
outint(i, 3);
|
|
outimage
|
|
end;
|
|
end
|