program sample
	implicit none
    integer(8) :: K,A,B,money,maisuu,i
    
    read(*,*) K,A,B
    
    maisuu = 1
    money = 0
    
    do i=1,K
        if (money == 1) then
        	money= money - 1
            maisuu = maisuu +B
        else if (A < B - 1 .and. maisuu >= A .and. i <= K-1) then
        	maisuu = maisuu - A
            money = money + 1
        else 
        	maisuu = maisuu + 1
        end if
        
   	end do
    
    write(*,*) maisuu
    
    stop
end program sample