var sa,sb,n,i,gm: integer;
begin
  write('N = ');  readln(n);
  randomize;
  sa:=0;  sb:=0;  i:=0;
  while i<=n do
  begin
    gm:=random(6)+1;
    sa:=sa+gm;
    writeln('ход первого игрока, выпало ',gm,'  сумма ',sa);
    gm:=random(6)+1;
    sb:=sb+gm;
    writeln('ход второго игрока, выпало ',gm,'  сумма ',sb);
    writeln;
    i:=i+1;
  end;
  if sa>sb then writeln('выиграл первый игрок');
  if sb>sa then writeln('выиграл второй игрок');
  if sa=sb then writeln('боевая ничья, равное количество очков')
end.