Find the product of all natural numbers divisible by 3 or less than 13. Note that the initial value P = 1. Write a program

program zz1;
var p, i: integer;
begin
p: = 1; // set the initial value to the product
for i: = 1 to 13 do // set the loop to thirteen, iterate over all numbers from 1 to 13
if i mod 3 = 0 then p: = p * i; // check if the number is divisible by three, then multiply it by the product
write (‘product of multiples of three =’, p); // display the answer
end.