INTEGER I,N,FLG
      READ(*,*) N
      DO 10 I=1,N,1
        FLG=0
        IF(MOD(I,3).EQ.0) FLG=1
        IF(MOD(I,5).EQ.0) FLG=FLG+10
        IF(FLG.EQ. 0) WRITE(*,*) I
        IF(FLG.EQ. 1) WRITE(*,*) 'Fizz'
        IF(FLG.EQ.10) WRITE(*,*) 'Buzz'
        IF(FLG.EQ.11) WRITE(*,*) 'FizzBuzz'
   10 CONTINUE
      STOP
      END