program prob2
    implicit none
    integer(8) :: n, a, b, ans
    read(*,*) n, a, b   
    ans = (N / (A + B)) * A
    if(mod(N, (A+B)) >= A)then
        ans = ans + A
    else
        ans = ans + mod(N, (A+B))
    end if

    write(*,*) ans


    stop
contains
end program prob2