Найти произведение четных чисел от 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.