var n,i:integer;
p:double;
begin
p:=1;
writeln ('Введите n');
readln (n);
for i:=1 to n do 
p:=p*i;
writeln ('Произведение равно ',p);
end.