label
1,2, con, start;
var
money, stake, a1, a2, wl, a, b: real;
mon:boolean;
conec:string;
begin
writeln('----------------');
writeln('- game ''Bones'' -');
writeln('----------------');
money:=100;
 begin
 start:
 if money=0 then
  begin
  mon:=false;
  goto con;
  end;
 if (money=200) or (money>200) then
  begin
  mon:=true;
  goto con;
 end;
 randomize;
 writeln('You have:', money:3:0, '$');
 write('Your stake:');
 readln(stake);
 if stake>money then writeln('You havn''t so much money!');
 if (stake<money) or (stake=money) then
  begin
  1:
  a1:=random(6);
  a:=a1;
  if a1=0 then goto 1 else writeln('Your rezult is:', a1:1:0);
  2:
  a2:=random(6);
  b:=a2;
  if a2=0 then goto 2 else writeln('Your oponent''s rezult is:', a2:1:0);
  if a>b then
   begin
   writeln('You win ', stake:3:0, '$');
   money:=money+stake;
   end;
  if a<b then
   begin
   writeln('You loose ', stake:3:0, '$');
   money:=money-stake;
   end;
  if a=b then
   writeln('Retry');
   goto start;
   end;
  goto start;
  con:
  end;
if mon=true then writeln('You win!');
if mon=false then writeln('You loose!');
readln(conec);
end.