{* Задача411 *}

REM basic

' Вычислить: 1*2+2*3*4+…+n*(n+1)*…*(2*n), n-натуральное число


DEFDBL A-Z
  CLS
 INPUT "Vvedite n:", n
    For i = 1 To n   
     PR = i
       For j = 1 To i   
       PR = PR * (i + j)
       Next
     S = S + PR
    Next
 PRINT S
End