var
lose, win, game, all, N, ls, ws, tor, mls, mws: integer;
winrate: real;
begin
readln(N);
lose := 0; all := 0; win := 0; game := 0;
for all := 1 to N do
begin
game := random(100);
if game < 49 then
begin
lose := lose + 1;
writeln ('Проиграл мид на инвокере ', lose,'x');
if tor = 0 then ls := ls + 1;
if (tor = 1) and (ws > mws) then
begin
mws := ws;
ws := 0;
end;
tor := 0;
end;
if game >= 49 then
begin
win := win + 1;
writeln ('Выиграл мид на инвокере ', win,'x');
if tor = 1 then ws := ws + 1;
if (tor = 0) and (ls > mls) then
begin
mls := ls;
ls := 0;
end;
tor := 1;
end;
end;
winrate := win / all * 100;
writeln('');
writeln('Всего игр: ', all);
writeln('Винрейт: ', winrate,'%');
writeln('Лучший винстрик: ', mws);
writeln('Лучший лузстрик: ', mls);
end.