need help to simplify

[person]

I typed this code for my horse race betting game to determine the winner. This part of the code is supposed to figure out which of the five horses gets first place, second place, third place, fourth... (horse one has the biggest odds of getting first). I made a code to figure it out but it takes Turing a little bit longer than forever to read it. Can u help me simplify it? Thanks

var s1, s2, s3, s4, s5, as, bs, cs, ds, es : int
as := Rand.Int (1, 100)
bs := Rand.Int (1, 100)
cs := Rand.Int (1, 100)
ds := Rand.Int (1, 100)
es := Rand.Int (1, 100)
if as >= 1 and as <= 50 then
s1 := 10
elsif as >= 51 and as <= 75 then
s2 := 10
elsif as >= 76 and as <= 89 then
s3 := 10
elsif as >= 90 and as <= 96 then
s4 := 10
else
s5 := 10
end if
loop
if bs >= 1 and bs <= 50 and as > 50 then
s1 := 20
exit
elsif bs >= 51 and bs <= 75 and (as < 51 or as > 75) then
s2 := 20
exit
elsif bs >= 76 and bs <= 89 and (as < 76 or as > 89) then
s3 := 20
exit
elsif bs >= 90 and bs <= 96 and (as < 90 or as > 96) then
s4 := 20
exit
elsif bs >= 97 and bs <= 100 and as < 97 then
s5 := 20
exit
else
bs := Rand.Int (1, 100)
end if
end loop

loop
if cs >= 1 and cs <= 50 and as > 50 and bs > 50 then
s1 := 30
exit
elsif cs >= 51 and cs <= 75 and (as < 51 or as > 75) and (bs < 51 or bs > 75) then
s2 := 30
exit
elsif cs >= 76 and cs <= 89 and (as < 76 or as > 89) and (bs < 76 or bs > 89) then
s3 := 30
exit
elsif cs >= 90 and cs <= 96 and (as < 90 or as > 96) and (bs < 90 or bs > 96) then
s4 := 30
exit
elsif cs >= 97 and cs <= 100 and as < 97 and bs < 97 then
s5 := 30
exit
else
cs := Rand.Int (1, 100)
end if
end loop

loop
if ds >= 1 and ds <= 50 and as > 50 and bs > 50 and cs > 50 then
s1 := 40
exit
elsif ds >= 51 and ds <= 75 and (as < 51 or as > 75) and (bs < 51 or bs > 75) and (cs < 51 or cs > 75) then
s2 := 40
exit
elsif ds >= 76 and ds <= 89 and (as < 76 or as > 89) and (bs < 76 or bs > 89) and (cs < 76 or cs > 89) then
s3 := 40
exit
elsif ds >= 90 and ds <= 96 and (as < 90 or as > 96) and (bs < 90 or bs > 96) and (cs < 90 or cs > 96) then
s4 := 40
exit
elsif ds >= 97 and ds <= 100 and as > 97 and bs > 97 and cs > 97 then
s5 := 40
exit
else
ds := Rand.Int (1, 100)
end if
end loop
loop
if es >= 1 and es <= 50 and as > 50 and bs > 50 and cs > 50 and ds > 50 then
s1 := 50
exit
elsif es >= 51 and es <= 75 and (as < 51 or as > 75) and (bs < 51 or bs > 75) and (cs < 51 or cs > 75) and (ds < 51 or ds > 75) then
s2 := 50
exit
elsif es >= 76 and es <= 89 and (as < 76 or as > 89) and (bs < 76 or bs > 89) and (cs < 76 or cs > 89) and (ds < 76 or ds > 89) then
s3 := 50
exit
elsif es >= 90 and es <= 96 and (as < 90 or as > 96) and (bs < 90 or bs > 96) and (cs < 90 or cs > 96) and (ds < 90 or ds > 96) then
s4 := 50
exit
elsif es >= 97 and es <= 100 and as > 97 and bs > 97 and cs > 97 and ds > 97 then
s5 := 50
exit
else
es := Rand.Int (1, 100)
end if
end loop

[Tony]

Turing:

put "Hourse number #", Rand.Int(1,5), " is the winner!"

I have no idea what you're doing there..

[Neo]

Your code appears to do nothing.

[TheXploder]

I do remember all of Paul's games exactly, he had this thread a while ago I think it'll help. http://www.compsci.ca/v2/viewtopic.php?t=3338&highlight=pauls+horse+betting

[Paul]

w00t, that was long ago. Yep, my old messy style.

[sport]

if you explain what

code:

var s1, s2, s3, s4, s5, as, bs, cs, ds, es : int

are I'll help you