{* Задача160 *}

REM basic

'


CLS
INPUT "Введите n"; n
S=0
For i=1 To n
S=S+1/i
Next i
PRINT "S="; S
End