Розробіть алгоритм і програму визначення добутку цілих парних чисел з проміжку (-2; 7]

З допомогою циклів! У програмі Delphi7

p:=1;i:=-2while not(i=7) dobegininc(i);if (i div 2 = 0) then p=p*i; end;p:=1;i:=-2;repeatif (i div 2 = 0) then p=p*i; inc(i);while not(i=7) do

p:=1;i:=-2;repeatif (i div 2 = 0) thenp=p*i; inc(i);until not(i=7) do

p:=1;for i = -2 to 7 do    begin           if (i div 2 = 0) then               p=p*i;    end;