{* Задача167 *}

REM basic

'


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