Sub abcd()
n = CInt(InputBox("Введите натуральное n"))
s = 0#
For i = 1 To n
p = 1#
For j = i To 2 * i
p = p * j
Next j
s = s + p
Next i
MsgBox s
End Sub
