var i,p: integer;
begin
p:=1;
for i:=3 to 9 do p:=p*i;
writeln ('Произведение всех натуральных чисел на отрезке [3;9] равно ',p)
end.
