Free Pascal - random Necesito una ayuda con este problema, que debo realizarlo con la función random sin argumentos:
Realizar un problema que elija el número 1 aproximadamente el 45% de las veces, el número 2 el 35 % de las veces, el número 3 el 15 % de las veces y el 4 el 5% de las veces. El libro hace la sugerencia de que considere las sumas parciales.
No sé si estoy en lo cierto planteándolo de esta manera:
if (random >0) and (random <=45) then Writeln ('el numero es 1');
if (random> 0.45) and ( random <= 0.8) Writeln ('el numero es 2');
if (random> 0.8) and ( random <= 0.95) Writeln ('el numero es3');
else (random> 0.95) and ( random <= 1) Writeln ('el numero es 4');
¿Qué puedo agregarle para que finalice el programa?
Gracias espero su ayuda
