character*32,allocatable::s(:) read *,n allocate(s(n)) do i=1,n write(s(i),*) i s(i) = adjustl(s(i)) enddo s(3:n:3)="Fizz" s(5:n:5)="Buzz" s(15:n:15)="FizzBuzz" print '(a)',s end program