[Edit1]

Сообщение от poli-smen

Пример через while:

Код:

  P := 1;
  while n > 0 do
  begin
    P := P * n;
    Dec(n, 2);
  end;

Было бы не плохо, если бы объяснил, что делает этот while?