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.