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.
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.