15 lines
257 B
Text
15 lines
257 B
Text
|
program FizzBuzz(output);
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
begin
|
||
|
|
for i := 1 to 100 do
|
||
|
|
if i mod 15 = 0 then
|
||
|
|
WriteLn('FizzBuzz')
|
||
|
|
else if i mod 3 = 0 then
|
||
|
|
WriteLn('Fizz')
|
||
|
|
else if i mod 5 = 0 then
|
||
|
|
WriteLn('Buzz')
|
||
|
|
else
|
||
|
|
WriteLn(i)
|
||
|
|
end.
|