Найти произведение четных чисел от 1 до 15

Можно так:
var i,p: integer;
begin
p:=1;
for i:=2 to 15 do
    if i mod 2=0 then p:=p*i;
writeln(Произведение четных чисел: ,p)
end.

Или так:
var i,p: integer;
begin
i:=2;
p:=1;
while i<15 do
  begin
  p:=p*i;
  i:=i+2
  end;
writeln(Произведение четных чисел: ,p)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.