var a,b,i,c,l:integer;
procedure F(n:integer);
begin
a:=a*n;
end;
c:=0;
a:=1;
write('Введите количество аргументов: '); readln(l);
for i:=1 to l do begin
F(i);
c:=c+a;
write(c);
end.
var a,b,i,c,l:integer;
procedure F(n:integer);
begin
a:=a*n;
end;
begin
c:=0;
a:=1;
write('Введите количество аргументов: '); readln(l);
for i:=1 to l do begin
F(i);
c:=c+a;
end;
write(c);
end.