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

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