Выведите на экран все нечетные числа от 31 до 1023

Var min, max: integer; begin max : = 1023; for min : = 31 to max do if ( min mod 2 < > 0 )  then write( min, ' '); end.

Используем бэктрекинг (. backtracking - обратное прослеживание). необходимо оставить противнику 1 фишку с тем,  чтобы он был вынужден взять её и проиграть. для этого надо самому иметь позицию, в которой имеется от 2 до 5 фишек (чтобы взяв допустимый 1-4 фишки, оставить одну). чтобы вынудить противника оставить 2-5 фишек, надо создать ему позицию с 6 фишками (6-1=5, 6-4=2). позицию с 6 фишками мы можем создать, имея 7-10 фишек. исходное количество фишек -  11. если первый ход у противника, он забирает от 1 до 4 фишек и предоставляет нам как раз необходимые для выигрыша 7-10 фишек. итак, при первом ходе противника нашей стратегией будет оставить противнику шесть фишек, а затем одну. если первый ход наш, то при правильной игре противника выигрыш невозможен. при неправильной - стараться перейти к выигрышной стратегии (6 и 1 фишка).