program sp;
var
  n, x: integer;
  1: label;
begin
  n:= 13;
  label main;
  writeln(n);
  writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
  readln(x);
  n := n - x;
  if n > 0 then
    begin
      writeln('Мой ход. Я возьму', 4 - x);
      n := n - (4 - x);
    end
  end
    if n <= 0 then
      writeln('Вы проиграли!')
    else
      goto 1;
    end
  end.