{* Задача163 *}

REM basic

'


CLS
INPUT "Введите n"; n
P=1
For i=1 To n
P=P*(1-1/(i*(i+1))
Next i
PRINT "P="; Р
End