program lab;
var
fact,s:real;
i, j:integer;
begin
s:=1;
for i:=1 to 9 do
begin
fact:=1;
for j:=1 to i do
fact:=fact*j;
s:=fact+s;
end;
writeln('s=',s:10:0);
end.
Вариант 2
program lab;
var
fact,s:longint;
i, j:integer;
begin
s:=1;
for i:=2 to 9 do
begin
fact:=2;
for j:=1 to i do
fact:=fact*j;
s:=fact+s;
end;
writeln('s=',s);
end.