dim a,b,i as integer
dim s as single
a=1
b=2
s=0
for i=1 to 10
s=s+b/a
a=a+b
s=s+a/b
b=a+b
next i
print s