Program Kasino;

var vylosovano: array[1..10] of integer;
    tipy: array[1..10] of integer;
    hotovost, sazka, vyhra: integer;
    i, uspesnost :integer;
    konec: String;

begin
  writeln('Dobr veer');
  writeln();
  writeln('Kolik penz chcete vymnit za etony (min. 50): ');
  readln(hotovost);
  if hotovost < 50 then
    writeln('Bohuel, minimum je 50. Opuste prosm kasino.')
  else
  repeat
  begin
    Randomize;
    writeln('Jste-li pipraven ke he, vsate si.');
    writeln('Minimln szka je 50 K');
    writeln('Vae szka: ');
    readln(sazka);
    while (sazka < 50) or (sazka > hotovost) do
    begin
      while sazka < 50 do
      begin
        writeln('Ml byste pihodit aspo ', 50 - sazka);
        writeln('Kolik pidte: ');
        readln(i);
        sazka:=sazka + i;
      end;
      while sazka > hotovost do
      begin
        writeln('Tolik nemte, snite prosm svou szku.');
        writeln('Vae hotovost: ', hotovost);
        write('Vae szka (min. 50): ');
        readln(sazka);
      end;
    end;
    writeln('Szka ', sazka,' je OK.');
    hotovost:=hotovost - sazka;
    writeln('Nyn u sebe mte hotovost:', hotovost);
    for i:=1 to 10 do
    begin
      writeln('Tipnte ', i ,'. slo (0-10): ');
      readln(tipy[i]);
    end;
    write('Vae tipy: ');
    for i:=1 to 10 do
      write(tipy[i], ' ');
    writeln();
    writeln('Pro zatek losovn stisknte klvesu Enter: ');
    readln();
    uspesnost:=0;
    for i:=1 to 10 do
    begin
      vylosovano[i]:=random(10);
      write(i, '. slo: ', vylosovano[i]);
      if vylosovano[i]=tipy[i] then begin
        uspesnost:=uspesnost + 1;
        writeln(' ANO! -> spnost = ',uspesnost,'. Stisknte Enter.');
      end
      else
      writeln(' Nic. spnost = ',uspesnost,'. Stisknte Enter.');
      readln();
    end;
    write('Vae tipy : ');
    for i:=1 to 10 do
      write(tipy[i], ' ');
    writeln();
    write('Vylosovno: ');
    for i:=1 to 10 do
      write(vylosovano[i], ' ');
    writeln();
    writeln('spnost: ', uspesnost);
    case uspesnost of
      10:
      begin
        hotovost:=hotovost + (sazka*5);
        writeln('Vyhrvte ptinsobek szky = ', sazka*5);
      end;
      9:
      begin
        hotovost:=hotovost + (sazka*4);
        writeln('Vyhrvte tynsobek szky = ', sazka*4);
      end;
      8:
      begin
        hotovost:=hotovost + (sazka*3);
        writeln('Vyhrvte trojnsobek szky = ', sazka*3);
      end;
      7:
      begin
        hotovost:=hotovost + (sazka*2);
        writeln('Vyhrvte dvojnsobek szky = ', sazka*2);
      end;
      6:
      begin
        hotovost:=hotovost + sazka;
        writeln('Vyhrvte zpt svou szku = ', sazka);
      end;
      5:
      begin
        vyhra := sazka - (sazka div 4);
        hotovost:=hotovost + vyhra;
        writeln('Vyhrvte 3/4 ze sv szky = ', vyhra);
      end;
      4:
      begin
        vyhra := sazka - (sazka div 3);
        hotovost:=hotovost + vyhra;
        writeln('Vyhrvte 2/3 ze sv szky = ', vyhra);
      end;
      3:
      begin
        hotovost:=hotovost + (sazka div 2);
        writeln('Vyhrvte polovinu sv szky = ', sazka div 2);
      end;
      2:
      begin
        hotovost:=hotovost + (sazka div 3);
        writeln('Vyhrvte tetinu sv szky = ', sazka div 3);
      end
      else
        writeln('Ztrcte celou szku = ', -sazka);
    end;
    writeln('Vae hotovost: ', hotovost);
    if hotovost < 50 then
    begin
      writeln('Vae hotovost bohuel nedosahuje szkovho minima.');
      writeln('Prosm, opuste kasino.');
    end
    else
    begin
      writeln('Chceteli skonit, napite Konec a stisknte Enter.');
      writeln('Pro pokraovn ve he stisknte samotn Enter.');
      readln(konec);
    end;
  end;
  until (konec = 'Konec') or (hotovost < 50);
end.