Rezolvarea in pseudocod va rog

Date de intrare: n natural;
Date de manevra: i natural;
Date de iesire: S natural, P natural;
Citeste n;
S=0;
P=1;
i=1;
Cat-timp (n>=i)
{
P = P * i;
S = S + P;
i = i + 1;
}
Scrie S;