Задача про собак - VB

Формулировка задачи:

Добрый вечер! Недавно увидел очень интересную задачу ( для меня так точно ). Сам решить не смог. Но уж очень интересно, как ее можно решить. Заранее спасибо. Дорожка длиной L метров и шириной W метров проходит между двумя заборами. На расстоянии L1 метров от начала дорожки к левому забору привязана на цепи злая собака, длина цепи - V1. Другая злая собака привязана к правому забору на расстоянии L2 метров от начала дорожки, длина цепи - V2. Если вы попадаете в зону досягаемости какой-либо собаки - она вас гарантированно укусит. Разработайте программу, определяющую, можно ли пройти по дорожке неукушенным.

Решение задачи: «Задача про собак»

textual
                            Листинг программы 
                        

                            ' Расстояние между собаками по прямой
d = Sqr(W ^ 2 + (L2 - L1) ^ 2)
If d <= V1 + V2 Or V1 >= W Or V2 >= W Then ' Если расстояние меньше длин привязи цепи
Print "Укусит собака"                   ' или длина привязи больше ширины дорожки
Else                 ' Если расстояние больше длин привязи цепи
Print "Не укусит собака"
End If
                        