Жирная линия синего цвета 300 шагов жирная линия красного цвета 400 шагов тонкая линия зелёного цвета 300 шагов тонкая линия красного цвета 200 шагов полужирная линия синего цвета 200 шагов

Если игроков два, то первый может выиграть, если своим ходом добавит в каждую кучу по 2 камня. любой ход второго игрока в этом случае ведет к победе первого. Так что ответ а) игрок, делающий первый ход.
начало :   2к.   3к.   4к.
1 ход 1-го игрока +2 камня к каждой куче
стало:      4       5     6       (всего 15)
 максимально увеличить это количество любым можно только на 6 камней. 15+6=21, а это меньше 25. т.о. второй игрок выиграть этим ходом не может никак.
 минимально увеличить камни можно удвоив первую кучу, тогда в ней станет 8 камней, и следующий (первый) игрок удваивает ее до 16 и выигрывает 

Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.