var
  i:integer;
  IDev3, IDev5, IBoth:real;
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);
ReadLn;
end.