===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var p := BigInteger.One;
for var i := 1 to n do
p *= i;
Writeln(n, '! = ', p)
end.
