Система охраны

[droxeda]

Помогите пожалуйста! Вопрос жизни и смерти.

Задача 2. Система охраны
Ограничение по времени: 1 секунда на тест
Некоторое царство-государство окружено крепостной стеной с башнями, в которых
расположены дозорные. Для оперативного оповещения каждого дозорного между башнями
решили установить прямую телефонную. Ограниченная стеной территория царства-государства
представляет собой многоугольник ненулевой площади произвольного вида без самопересечений,
башни располагаются в его вершинах.
Можно ли построить такую прямую связь, соединяющую каждую башню с каждой, чтобы
кабель не проходил вне территории царства-государства.
Входные данные
В первой строке входного файла записано одно целое число ― количество тестов, не более
10. Описание каждого теста состит из двух строк, в первой строке указано одно целое число —
количество башен N (3 ≤ N ≤ 1000). Во второй строке через пробел перечислены целочисленные
координаты башен по порядку их следования друг за другом, начиная с произвольной. Для
каждой башни сначала указывается координата x, а затем y. Координаты по модулю не
превосходят 105. Считаем, что первая из перечисленных башен всегда соединена крепостной
стеной с последней.
Выходные данные
В выходной файл для каждого теста на отдельной строке необходимо вывести слово yes,
если возможно построить такую связь, или no в случае невозможности таковой.
Примеры
input.txt
1
5
output.txt

yes

[Mad_Cat]

пример имхо не соответствует заданию)
где координаты вершин то ?
*в лоб* проверить отрезки соединяющие одну вершину со всеми остальными на пересечение со стенами

function checkIntersection:shortint;
{
returns
  1 if there is one intersection point "c"
  0 if chunks ar on parallel lines
-1 if there are no intersection points
}
var d,da,db,ta,tb: real;
  begin
  d :=(a1.x-a2.x)*(b2.y-b1.y) - (a1.y-a2.y)*(b2.x-b1.x);
  da:=(a1.x-b1.x)*(b2.y-b1.y) - (a1.y-b1.y)*(b2.x-b1.x);
  db:=(a1.x-a2.x)*(a1.y-b1.y) - (a1.y-a2.y)*(a1.x-b1.x);
  writeln('d=',d:12:4,' da=',da:12:4,' db=',db:12:4);

  if (abs(d)<eps) then
    checkIntersection := 0
  else
    begin
    ta:=da/d;
    tb:=db/d;
    if    (0<=ta) and (ta<=1)
      and (0<=tb) and (tb<=1)
        then
          begin
          c.setPoint(a1.x+ta*(a2.x-a1.x),a1.y+ta*(a2.y-a1.y));
          checkIntersection := 1
          end
        else checkIntersection := -1;
    end;
  end;

(c) http://delphid.dax.ru/www/exampl34.htm
доделайте под свое задание

[droxeda]

http://mepic.ru/view/?id=7e1015909fc...5bf31e31568c86

вот скрин