Решение задания С3 из ЕГЭ

var
  x, y, max, sum, mult, player: integer;
 
begin
  writeln('Сколько камней в первой кучке?');
  readln(x);
  writeln('Сколько камней во второй кучке?');
  readln(y);
  writeln('Какое максимально колличество камней?');
  readln(max);
  writeln('Какое число можно прибавлять к кучкам?');
  readln(sum);
  writeln('На какое число можно умножать кучки?');
  readln(mult);
  
  player := 1;
  while x + y < max do
  begin
    if player mod 2 = 0 then
    begin
      player := 2;
      writeln('Ходит второй игрок');
    end
    else
    begin
      player := 1;
      writeln('ходит первый игрок');
    end;
    
    if x + sum + y <= max then
    begin
      x := x + sum;
      writeln('В первой кучке ', x, ' камней, во второй ', y, ' камней, всего камней ', x + y);
    end
    else
    begin
      if (x * mult) + y <= max then
      begin
        x := y * mult;
        writeln('В первой кучке ', x, ' камней, во второй ', y, ' камней, всего камней ', x + y);
      end
      else
      begin
        if (y * mult) + x <= max then
        begin
          x := x * mult;
          writeln('В первой кучке ', x, ' камней, во второй ', y, ' камней, всего камней ', x + y);
        end
        else
        begin
          writeln(player, ' игрок проиграл');
          x := max;
        end;
      end;
    end;
    player := player + 1;
  end;
end.