var number, Result, count : int := 0
var reply1, reply2 : string
loop
    randint (number, 1, 6)
    put "Do you want to play a dice game? (y/n) " ..
    get reply1
    exit when reply1 not= "y"
    put "This will be your randomly chosen number from 1-6: ", number
    delay (500)
    loop
        randint (Result, 1, 6)
        delay (500)
        put "It rolled ", Result
        count := count + 1
        if Result = number
                then
            put "It rolled ", count, " time(s) to get the same number."
            put "Do you want to try again? answer y or n " ..
            get reply2
            exit when reply2 not= "y"
            randint (number, 1, 6)
            put "This will be your randomly chosen number from 1-6: ", number
            delay (500)
        end if
    end loop
end loop