program Hello;
var
a : integer;
b : integer;
i : integer;
begin
readln(a);
b := 1;
for i := 1 to a do
b := b * i;
writeln(b);
end.
program Hello;
var
a : integer;
b : integer;
i : integer;
begin
readln(a);
b := 1;
for i := 1 to a do
b := b * i;
writeln(b);
end.