program ideone;
function getF(n:Integer):Integer;
var i,f:Integer;
begin
For i:= 1 to n do
begin
f:=f*getF(i);
end;
writeln(n);
end.
begin
writeln(IntToStr(getF(3)));
end.
cHJvZ3JhbSBpZGVvbmU7CgpmdW5jdGlvbiBnZXRGKG46SW50ZWdlcik6SW50ZWdlcjsKdmFyIGksZjpJbnRlZ2VyOwpiZWdpbgogRm9yIGk6PSAxIHRvIG4gZG8KICBiZWdpbgogICBmOj1mKmdldEYoaSk7CiAgZW5kOwogd3JpdGVsbihuKTsKZW5kLgoKYmVnaW4KCXdyaXRlbG4oSW50VG9TdHIoZ2V0RigzKSkpOwplbmQu