begin
  var x, n, y, z, t, m: integer;
  writeln('Твой выбор: 1 - четное, 2 - нечетное, 0 - закончить игру');
  readln (y);
  while y > 0 do
  begin
    x:= random (1, 52);
    if (x mod 2) = 0 then
    begin
      n:= 1;
    end
    else
    begin
      n:= 2;
    end;
    if y = n then
    begin
      writeln('Ты угодал!');
      z:= z + 1;
      t:= t + 1;
      writeln('Твой выбор: 1 - четное, 2 - нечетное, 0 - закончить игру');
      readln(y)
    end
    else
    begin
      writeln('Ты не угодал!');
      t:= t + 1;
      writeln('Твой выбор: 1 - четное, 2 - нечетное, 0 - закончить игру');
      readln(y)
    end;
  end;
  if y = 0 then
  begin
    m:= floor((z/t)*100);
    writeln('Твой результат: ', m, '%');
  end;
end.