var num : array 1 .. 10 of int
var temp, answer : int

var odd, even : array 1 .. 10 of int
var oddcount, evencount : int := 0

procedure pick
    randomize
    for i : 1 .. 10
        randint (num (i), 10, 99)
        put num (i)
        delay (50)
    end for
end pick

procedure second

    put "The sorted list is"
    for i : 1 .. 10
        put num (i)
        for i : 1 .. evencount
            put even (i)
            if num (i) mod 2 = 0 then
                evencount := evencount + 1
                even (evencount) := num (i)
                even (evencount) := num (i)
            end if
        end for
        put "The even numbers are", evencount
    end second

    procedure menu
        pick
        put "1..no repeating"
        put "2..odd and even"
        put "3..large to small"
        put "4..median"
        get answer
        if answer = 2 then
            second
        end if
    end menu
    menu