1.найти произведение всех натуральных чисел, кратных 3 и меньших 13. обратите внимание, что начальное значение р=1. 2.найти количество натуральных чисел, нечет

Var
i,p:integer;
begin
p:=1;
for i:=1 to 13 do
if i mod 3 = 0 then 
p:=p*i;
writeln('Произведение = ',p);
end.