Uses crt;
 var
  c,a,s,ch,v,d: longint;
  begin
  d:=0;
  c:=1000;
  repeat
   writeln('Coin: ',c); 
    writeln('Ваша ставка: ');
     read(s);//Используй только цифры
      if s <= c then
       begin
        writeln('Ваше число(1-5): ');
         read(ch);
          if (ch<=5) and (ch>=1) then // только числа от 1 до 5
           begin
             randomize;
              a:=random(5)+1;
               if ch=a then
                begin
                writeln('Win!!');
                  v:=s*10; // сумма выиграша умножается на 10
                   c:=c+v;
                end
                else
                 writeln('Lose');
                 c:=c-s;
            end;
       end;
       clrscr;
        until d=1;
  end.