: Amount Won = ((bet ^2) / (bet^2 - 100 * bet)) * 25000
:
Pascal does have a square function (
sqr) or you can do like you have been
doing and just multiply the bet to itself. And in Pascal with some optimization
and minimizing the number of calculations, you could:
var
bet : integer; { the bet }
betsq : integer; { the bet squared }
.
.
.
betsq := sqr( bet );
Amount_Won := ( betsq / ( betsq - 100 * bet ) ) * 25000;