Музыка Ливня
переменная факториал = 1
переменная сумма = 0
ДЛЯ каждого i от 1 до N ДЕЛАТЬ
факториал = факториал * i
сумма = сумма + факториал
заканчивать ДЕЛАТЬ
p:=1;
sum:=0;
for i:=1 to n do begin
p:=p*i;
s:=s+p;
end;