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

fikort а это точно так решается просто у нас в учебнике такого нету

а что написано в учебнике?

там написано do это делать, while это пока, loop это петля, а такого что вы написали нету

возможно там используется другой цикл

может быть, у учителя спрошу

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