program z7_60;
uses crt;
const z=300;
type k=array[0..z] of integer;
var A:k;
i,j,r,w,n:integer;
BEGIN
fillchar(A,sizeof(A),0);
writeln('vvedite chislo n');
readln(n);
A[0]:=1;
A[1]:=1;
j:=2;
while(j<=n) and (A[0] r:=0;
i:=1;
while (i<=A[0]) or (r<>0) do begin
w:=A[i]*j+r;
A[i]:=w mod 10;
r:=w Div 10;
if A[A[0]+1]<>0 then inc(A[0]);
inc(i);
end;
inc(j);
end;
for i:=A[0] downto 1 do write(a[i]);
writeln;
readln;
END.