when green flag clicked

set [Trả lời v] to "Có"

repeat until <(Trả lời) = "Không">

  ask "Tên sách muốn mượn:" and wait

  set [sachmuon v] to (answer)

  if <(sachmuon) = [Tên sách]> then

    set [soluong v] to [Số lượng]

    if <(soluong) = [0]> then

      say "Cuốn sách đã được mượn hết"

    else

      say (join "Vị trí của cuốn sách: " (Vị trí))

      change [soluong] by (-1)

    end

  end

  ask "Tiếp tục (Có/Không)?" and wait

  set [Trả lời v] to (answer)

end