记录编号	98012	评测结果	AAAAAAAAAAAAAAAAAAAA
题目名称	棋盘上的車	最终得分	100
用户昵称	NBWang	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2014-04-21 16:22:05	内存使用	0.17 MiB

program rook;
var
n,m,i:int64;
begin
assign(input,'rook.in');
assign(output,'rook.out');
reset(input);
rewrite(output);
read(n);
m:=1;
while n<>0 do
begin
m:=m*n;
n:=n-1;
end;
writeln(m);
close(input);
close(output);
end.