fcn whatRoll (dice : array 1 .. 5 of int) : int
    var returnValue : int := 0
    var currentValue : int := 1
    for i : 1 .. 4
        for t : i + 1 .. 5
            if dice (i) = dice (t) then
                currentValue := currentValue + 1
            end if
        end for
        if currentValue > returnValue then
            returnValue := currentValue
        end if
        currentValue := 1
    end for
    result returnValue
end whatRoll
loop
    var diceRoll : array 1..5 of int
    for i : 1..5
        randint (diceRoll (i),1,6)
    end for
    put "Hand: " ..
    for i : 1..5
        put diceRoll (i), ", "..
    end for
    put ""
    put "Result: ", whatRoll (diceRoll)
    delay (5000)
    cls
end loop