fsfs

PROGRAM Sevele ;

VAR CapIn, Dado1, Dado2, Pase, ApIn, CapFin, Apuesta, Punto, Jugada : Integer ;

BEGIN
     Randomize ;
	 Dado1:= random(6) + 1 ;
     Dado2:= random(6) + 1 ;
	 Pase:= Dado1 + Dado2 ;
	 Write('Ingrese su capital: ') ;
     Read(CapIn) ;
     Writeln('Capital Inicial: ',CapIn) ;
     Writeln ;
     Writeln('Jugada: ','1') ;
     Write('Ingrese su apuesta: ') ;
     Read(ApIn) ;
	 Writeln('Pase:') ;
     Writeln('Tirada',' ', '[',ApIn,']',' ','-->',' ',Dado1,' ',Dado2) ;

	Jugada:= 1 ;
	WHILE (Jugada > 10) OR (CapIn <=0 ) DO
	Readln(Jugada) ;
	BEGIN

	IF (Pase = 7) OR (Pase = 11)
	  THEN BEGIN
		     Jugada:= Jugada + 1 ;
			 Writeln('Gana') ;
             CapFin:= CapIn + ApIn ;
             Writeln('Capital: ',CapFin) ;
             Writeln ;
		     Writeln('Jugada: ',Jugada) ;
		     Write('Ingrese su apuesta: ') ;
		     Read(ApIn) ;
		    END ;

	IF (Pase = 2) OR (Pase = 3) OR (Pase = 12)
	  THEN BEGIN
	         Jugada:= Jugada + 1 ;
			 Writeln('Pierde') ;
		     CapFin:= CapIn - ApIn ;
             Writeln('Capital: ',CapFin) ;
		     Writeln ;
			 Writeln('Jugada: ',Jugada) ;
			 Write('Ingrese su apuesta: ') ;
		     Read(ApIn) ;
		    END ;

	IF (Pase = 4) OR (Pase = 5) OR (Pase = 6) OR (Pase = 8) OR (Pase = 9) OR (Pase = 10)
      THEN BEGIN
	         Punto:= Pase ;
		     Writeln('Punto: ',Punto) ;
		     Apuesta:= ApIn ;
		   REPEAT
             Dado1:= random(6) + 1 ;
             Dado2:= random(6) + 1 ;
             Pase:= Dado1 + Dado2 ;
             Apuesta:= Apuesta + 5 ;
		     Writeln('Tirada',' ', '[',Apuesta,']',' ','-->',' ',Dado1,' ',Dado2) ;
           UNTIL (Pase = Punto) OR (Pase = 7) ;

			 IF (Pase = 7)
		     THEN BEGIN
		             Jugada:= Jugada + 1 ;
				     Writeln('Pierde') ;
		             CapFin:= CapIn - Apuesta ;
                     Writeln('Capital: ',CapFin) ;
                     Writeln ;
				     Writeln('Jugada: ',Jugada) ;
				     Write('Ingrese su apuesta: ') ;
				     Read(ApIn) ;
				    END ;

			 IF (Pase = Punto)
			 THEN BEGIN
			         Jugada:= Jugada + 1 ;
				     Writeln('Gana') ;
                     CapFin:= CapIn + Apuesta ;
                     Writeln('Capital: ',CapFin) ;
	                 Writeln ;
                     Writeln('Jugada: ',Jugada) ;
                     Write('Ingrese su apuesta: ') ;
				     Read(ApIn) ;
				    END
	         ELSE
			     Writeln('Tirada',' ', '[',ApIn,']',' ','-->',' ',Dado1,' ',Dado2) ;
	            END ;
	END ;
END.