Program Pr1;uses crt;var s,b:real; i,a,n:integer;Beginclrscr;writeln('Vvedite N');readln(n);s:=0;for i:=1 to n do begin b:=1; for a:=1 to i do b:=b*a; s:=s+b; end;writeln(s);end.
Program Pr1;
uses crt;
var s,b:real;
i,a,n:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
s:=0;
for i:=1 to n do begin
b:=1;
for a:=1 to i do b:=b*a;
s:=s+b;
end;
writeln(s);
end.