program y9002
    integer(8)::N,i
    read(5,*)N
    
    do i=1,N
        if(mod(i,15)==0)then
            print'(A)',"FizzBuzz"
        else if(mod(i,3)==0)then
            print'(A)',"Fizz"
        else if(mod(i,5)==0)then
            print'(A)',"Buzz"
        else
            print'(i0)',i
        end if
    end do
end program y9002