program Multiply;
vai, product: integer;
begiproduct := 1;
for i := 1 to 20 dbegiif (i mod 3 = 0) and (i mod 5 = 0) theproduct := product * iend;
writeln('Произведение чисел кратных 3 и 5 от 1 до 20: ', product)end.
program Multiply;
va
i, product: integer;
begi
product := 1;
for i := 1 to 20 d
begi
if (i mod 3 = 0) and (i mod 5 = 0) the
product := product * i
end;
writeln('Произведение чисел кратных 3 и 5 от 1 до 20: ', product)
end.