integer :: n, i
read(*,*) n 
do i = 1, n
    if (mod(i,3)==0 .and. mod(i,5)==0 ) then
        write(*,*) "FizzBuzz"
    else if (mod(i,3)==0) then
        write(*,*) "Fizz"
    else if (mod(i,5)==0) then 
        write(*,*) "Buzz"
    else
        write(*,*) i
    endif
enddo
end