11 lines
220 B
Text
11 lines
220 B
Text
var i : Integer;
|
|
|
|
for i := 1 to 100 do begin
|
|
if i mod 15 = 0 then
|
|
PrintLn('FizzBuzz')
|
|
else if i mod 3 = 0 then
|
|
PrintLn('Fizz')
|
|
else if i mod 5 = 0 then
|
|
PrintLn('Buzz')
|
|
else PrintLn(i);
|
|
end;
|