Evaluation()
end

sub Evaluation()
    lo = 1 : hi = 100 : temp = 0
    for i = lo to hi
        temp = temp + (1/i)  //r(i)
    next i
    print temp
end sub