var 
i,p:integer;
begin
p:=1;
i:=5;
while (i<=19) do begin
if (i mod 2<>0) then p:=p*i;
i:=i+1;
end;
writeln ('Proizvedenie=',p);
end.