Увеличение шага цикла For Опции

[Наська]

помогите:
вопрос вот в чем - можно ли увеличить шаг for'а с одного до 2?
что бы получилась такая строчка 2*4*6*8*... или 1*3*5*7*9*...

[Наська]

вот какую вещ йа делала -
2i? ?- если i-четное, то 2*4*..*i
если не четное, то 1*3*5*..i

//Проверка на четность
    if n mod 2 = 0 then
    begin
      if n = 2 then d := 2
      else
      begin
        d := 1;
        repeat
          d := d * n;
          n := n - 2;
        until n = 0;
      end;
    end;
    //Проверка на нечетность
    if n mod 2 <> 0 then
    begin
      if n = 1 then d := 1
      else
      begin
        d := 1;
        repeat
          d := d * n;
          n := n - 2;
        until n = 1;
        d := d*2
      end;
    end;

!

Теги надо ставить.... мисс_граффити

[Malice]

Не понял Не тоже самое ?

        d := 1;
        repeat
          d := d * n;
          n := n - 2;
        until n <= 0;