program main implicit none integer :: N, i read *, N do i = 1, N if (mod(i, 15) == 0) then print *, 'FizzBuzz' else if (mod(i, 3) == 0) then print *, 'Fizz' else if (mod(i, 5) == 0) then print *, 'Buzz' else print *, i end if end do end program main