Program KasinoZKnihovny;

uses KasinoVKnihovne;

var hotovost: integer;
    konec: String;

begin
  if KasinoVKnihovne.Zetony = False then
  begin
    writeln('Bohuel, minimum je 50. Opuste prosm kasino.');
    readln;
  end
  else
  repeat
  begin
    KasinoVKnihovne.Sazky;
    KasinoVKnihovne.Tipovani;
    hotovost:=KasinoVKnihovne.Losovani;
    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.
