var i,n,p:integer;
begin
write('n=');read(n);
p:=1;
i:=1;
Repeat p:=p*i; i:=i+1 until i>n;
writeln('произв=',p);
end.