1.Отыскать творение всех естественных чисел, кратных 3 и наименьших 13. Обратите

program zz1;
var p,i:integer;
begin
p:=1; //задаем изначальное значение творению
for i:=1 to 13 do //задаем цикл до тринадцати, перебираем все числа от 1 до 13
if i mod 3 = 0 then p:=p*i; //проверяем, если число делится на три, то умножаем его на творенье
write(творенье чисел кратных трем =,p); //выводим ответ
end.