Решить логическую ! ербол и максим*, любители сладкого, по очереди ломают шоколадку размером а×в долек. за ход разрешается сделать прямолинейный разлом любого из кусков вдоль углубления. проигрывает тот, кто не сможет сделать ход. кто выиграет в этой игре, если ербол делает первый ход? ответ обоснуйте

Предположим, что  максим и ербол играют по оптимальной стратегии. для удобства введем два понятия: выигрышная позиция и проигрышная позиция. выигрышная - это  позиция,  которая приводит игрока, ходившего с нее, к выигрышу. проигрышная - это позиция, которая приводит игрока, ходившего с нее, к проигрышу. также выигрышная  позиция - это позиция,  ведущая противника к проигрышной. и наоборот, проигрышная позиция - это позиция, ведущая противника к выигрышной. вести понятия будем относительно ербола. рассмотрим все возможные варианты размера шоколадки: 1x1 - lose. позиция проигрышная, т.к. ербол не сможет сделать ход. 1xn,  n > 1  - win. все позиции вида такого вида  выигрышные, т.к. приводят к проигрышной позиции 1x1. 2x2 - lose. позиция проигрышная, т.к. приводит противника  к выигрышной позиции 1xn. 2xn - win. все позицию такого вида  выигрышные, т.к. приводят противника к проигрышной позиции 2x2. 3x3 - lose. позиция проигрышная, т.к. приводит противника к выигрышной позиции 2xn или 1xn. 3xn - win. все позицию такого вида  выигрышные, т.к. приводят противника к проигрышной позиции 3x3. отсюда несложно заметить, что позиции вида nxn - проигрышные, а остальные - выигрышные. ответ: если a = b, то выиграет максим, иначе выиграет ербол

Program prog; uses crt; var a: array [0..100, 0..100] of integer;       x: array [0..100] of integer;       n,m,p,i,j: integer;       begin; clrscr; randomize; write('n = '); readln(n); write('m = '); readln(m); write('p = '); readln(p); writeln; for i: =1 to n do begin       for j: =1 to m do               begin               a[i,j]: = random(101)-50;               write(a[i,j]: 5);                             if (i=p) then               x[j]: = a[i,j];               end;       writeln; end; writeln; for j: =1 to m do write(x[j]: 5); end.