[Knightmare]

А в чем проблема? Как-то так:

a = Rnd(0, 1000)
b = Rnd(0, 1000)
c = Rnd(0, 1000)
d = Rnd(0, 1000)
e = Max(a, Max(b, Max(c, d)))

Function Max:Int(a:Int, b:Int)
    If a > b Then Return a
    Return b
End Function

Ну то решение в лоб, можно и красивше придумать в зависимости от ситуации.