Выпуклый N-угольник и его диагонали

[6AZblJlb]

Доброго времени суток.... Может кто подкинет идейку решения...чтото не могу догнать..... Дано число N ....N-угольник. Посчитать количество кусочков если разреть его по всем диагоналям..... например как я понял ..еси 3 то 1 кусок диагоналей то нет......еси 4 то 4 кусочка...еси 5 то 11....не догоняю как реализовать в Паскале...

[6AZblJlb]

ну что так никому нчиего и не пришло в голову?! я вот только формулу кол-ва диагоналей нашел(

[evg_m]

1. берем выпуклый многоугольник
2. выбираем одну вершину
3. проводим все диагонали из этой вершины
4. считаем треугольники
5. выбираем вторую вершину проводим диагонали (ОДНА уже есть) и снова считеаем.

[evg_m]

диагонали второй (соседней с первой) вершины разрежут треугольники полученные на первом этапе. для каждой диагонали число новых деталей =число разрезаемых треугольников.Число таких треугольников зависит от числа пресекаемых диагоналей. N-3 + N-4 + ...

[6AZblJlb]

поясни плиз последнюю фразу я что то не допонял.....
я вот что наколупал..... но тут на 17 выдает не верные ответ надо чтоб было 2500

           var
           i,j,n,k,max : longint;
           a : array [1..1000,1..1000] of int64;

begin

readln(n);
k:=0;
for i:=1 to n do  begin
  for j:=1 to n do
   if (j-i>=2)  then
    begin
     {******************}
     if i>1 then   begin
      a[i,j]:=k+j-2;
      k:=a[i,j];
      end
      else
       if (i=1) and (j<>n) then
       begin  a[i,j]:=j-1;
       k:=a[i,j];
       end;
     end{a[i,j]:=1}
     {**********************}
  else a[i,j]:=1;
      end;
  a[1,n]:=1;
   max:= a[1,1];

   for i:=1 to n do
     for j:=1 to n do
       if a[i,j]>max then max:=a[i,j];
           writeln(max);

    for i:=1 to n do  begin
      for j:=1 to n do
         write(a[i,j],' ');
         writeln;
         end;
         readln(i);

       end.