program z625;
var n :integer;
function rook(n:integer): longint;
begin if n<=1 then rook :=1
else rook :=n*rook(n-1);
end;
begin
Write ('vv n');
readln(n);
writeln('otv',rook(n));
end..