Ребята с информатикой как ответить на 7 и 8 во

Если игра безошибочна, тогда первый игрок может первым ходом увеличить в 3 раза вторую кучу (2*3=6), второй не станет увеличивать эту-же на 3 т.к сразу проиграет (18>17),

1) он может увеличит первую на три, тогда второй эту же увеличит на 3 и результат 1*3(2)*3(1)=9

9+6=15, первый победит

2)первый игрок будут играть аккуратно и постоянно прибавлять по 2 во вторую кучу, поскольку и в первого "безошибочная игра", то он не станет прибавлять в 1 2 камня(1+2=3, первый умножает эту кучу на 3 и результат 6+(3*3)=15), поэтому и первый и второй будут прибавлять во вторую кучу 6_{1}+2_{2}+2_{1}+2_{2}+2_{1}=15+2_{2}=176

1

+2

2

+2

1

+2

2

+2

1

=15+2

2

=17 17=17 (что по условию не подходит), выиграл 1

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.