program Multiply;
vari, product: integer;
beginproduct := 1;
for i := 1 to 20 dobeginif (i mod 3 = 0) and (i mod 5 = 0) thenproduct := product * i;end;
writeln('Произведение чисел кратных 3 и 5 от 1 до 20: ', product);end.
program Multiply;
var
i, product: integer;
begin
product := 1;
for i := 1 to 20 do
begin
if (i mod 3 = 0) and (i mod 5 = 0) then
product := product * i;
end;
writeln('Произведение чисел кратных 3 и 5 от 1 до 20: ', product);
end.