h = 0.0

print "The first twenty harmonic numbers are:"
for n = 1 to 20
    h = h + 1.0 / n
    print n, chr$(9), h
next n
print

h = 1 : n = 2
for i = 2 to 10
    while h < i
        h = h + 1.0 / n
        n = n + 1
    wend
    print "The first harmonic number greater than ", i, " is ", h, ", at position ", n-1
next i
end