for i1 = I1 to 15 do
for I2 to 15 do
	…
		for In to 15 do
		{
			if I1 <> I2 <> … <> In then
				запомнить расположение
}

sometype fileld[M, N];
//Матрица, характеризующая поле
vector<point> list;
//Список возможных ходов
int search(point T, bool AI) {
   /*Получает в качестве параметра клетку на поле
   и флаг - чей это ход, компьютера или человека.
   Возвращает насколько этот ход полезен для компьютера*/

   /*Эта функция должна проставить в поле fileld текущий ход
   и запомнить его - она должна будет его отменить при завершении
   своей работы*/

  /*Так же она должна обновить список возможных ходов list
   и опять же по своему завершению восстановить его - пиши это сам.
   Все это не сложно, но мне просто лень.*/

  /*Про то что это значение, возвращаемое через search - читай ниже*/

   if (AI) {
      point p=0;
      int score=-1;
      //Премия за лучшый ход
      foreach (i=0; i<list.size; i++) {
          if (int s = search(list[i], !AI) > score) {
             p = list[i];
             score = s;
          }
          else if (s<0) return -1;
      }
   }
   else {
       //Про ход человека читай ниже
   }
  
   /*После этого цикла в p лежит оптимальный ход
   Не забуть в конце функции восстановить list и field
   Так же надо расчитать и вернуть полезность хода,
    о чем тоже ниже*/
}

for i1 = I1 to 15 do
for I2 to 15 do
	…
		for In to 15 do
		{
			if I1 <> I2 <> … <> In then
				запомнить расположение
}

> for i1 = I1 to 15 do
> for I2 to 15 do
> 	…
> 		for In to 15 do
> 		{
> 			if I1 <> I2 <> …
> <> In then
> 				запомнить расположение
> }
> 

for i1 = 1 to n-k do
    for i2 = i1+1 to n-k+1 do
          for i3 = i2+1 to n-k+2 do
               ...
                 запомнить расположение