$n = ; for ($i = 1; $i < $n + 1; $i++) { if ($i % 3 == 0 && $i % 5 == 0) { print "FizzBuzz\n"; } elsif ($i % 3 == 0) { print "Fizz\n"; } elsif ($i % 5 == 0) { print "Buzz\n"; } else { print "$i\n"; } }