rogram sample
    implicit none
    real(8)::x,y,z
    integer(8) :: a,b,c,i,j,m,n,k,a1,b1,c1
    
    
  
    read(*,*) a,b
    n=0
    do while (a*n-n+1<b)
        n=n+1
    end do
    
    write(*,*) n
    
    stop
end program sample
  

