Program aaa;
Var x,s: integer;
Begin
s:=1;
For x:=3 to 13 do
If x mod 2=1 then
s:=s*x;
WriteLN('Произведение равно ', s);
End.
var n, i: integer;
begin
n := 1;
for i := 3 to 13 do
n := n * i;
write(n);
end.
