RosettaCodeData/Task/Jensens-Device/FreeBASIC/jensens-device.basic

Sub Evaluation
    Dim As Integer i, lo = 1, hi = 100
    Dim As Double temp = 0
    For i = lo To hi
        temp += (1/i)  ''r(i)
    Next i
    Print temp
End Sub

Evaluation
Sleep