Составить программу Паскаль, которая находит произведение n-нечётных чисел

var i,p: integer;

begin

p:=1;

for i:=1 to 13 do

if i mod 2 <> 0 then p:=p*i;

write (p)

end.