Спо ! )) снежная королева задала каю новое . он должен каждый день выкладывать перед входом в замок прямую дорожку из белых и голубых льдинок. дорожка всегда должна иметь одну и ту же длину 11, и рисунок в каждый следующий день должен отличаться от рисунков в предыдущие дни. кроме того, королеве не нравится, когда подряд идут две белые льдинки. в тот день, когда кай не сможет больше выложить ни одной новой дорожки, он будет свободен и сможет отправиться домой. сколько дней ему предстоит трудиться?

// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=new integer[4,4] ((1,15,14,4),(12,6,7,9),(8,10,11,5),(13,3,2,16));
  a.Println(3);
  var b:=new integer[6,6] ((6,32,3,34,35,1),(7,11,27,28,8,30),
    (19,14,16,15,23,24),(18,20,22,21,17,13),(25,29,10,9,26,12),
    (36,5,33,4,2,31));
  Writeln;
  b.Println(3);
end.

Результат:
  1 15 14  4
 12  6  7  9
  8 10 11  5
 13  3  2 16

  6 32  3 34 35  1
  7 11 27 28  8 30
 19 14 16 15 23 24
 18 20 22 21 17 13
 25 29 10  9 26 12
 36  5 33  4  2 31

Это может быть любое число, которое на 11 больше, чем число кратное 15. Например, 105 делится на 15 нацело. Значит число 116 вполне подходит под задуманное Ипполитом.

Все возможные варианты:
101 116 131 146 161 176 191 206 221 236 251 266 281 296 311 326 341 356 371 386 401 416 431 446 461 476 491 506 521 536 551 566 581 596 611 626 641 656 671 686 701 716 731 746 761 776 791 806 821 836 851 866 881 896 911 926 941 956 971 986 

Пример программы (и, соответственно, алгоритма), при которого можно получить такой список - во вложении.