program game;
uses wincrt;
var
   a,money:integer;
   player,comp:string;
begin
     money:=50;
      repeat
       writeln('You have $',money);
                    repeat
                     write('(r)ock (s)cissors (c)loth ?');
                     readln(player);
                    until (player='r') or (player='c') or (player='s');
         randomize;
         a:=random(3);
         if a=0 then comp:='r';
         if a=1 then comp:='s';
         if a=2 then comp:='c';
            if ((comp='r') and (player='c')) or ((comp='s') and (player='r')) or ((comp='c') and (player='s'))
               then begin
                     writeln('....You win');
                     money:=money+15;
                    end 
            else writeln('....You lose or draw');
                 money:=money-10;
      until (money>=100) or (money<=0);
     writeln('End of the game');

end.

written by Wong Wing Ho 4a (39)